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Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l’accutezza e la velocità 
di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabilità che 
un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi riguardanti 
la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che al suo stile, 
e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida permetterà 
che le vostre buone idee e i vostri programmi vengano più facilmente accettati per la pubblica- 
zione: 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente alla 
configuraszione richiesta (memoria occorrente, 
eventuali periferiche e così via). 

3 il titolo sottolineato dell’articolo dovrà inizia- 
re a due terzi in altezza della prima pagina, 
le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina progressivo. Per esempio, Horace Goes... 
/Brambilla/2. 

5 tutte le linee del testo dovranno essere battu- 
te con spazio 2 o spazio 3, e un margine di 
circa un centimetro dovrà trovarsi ad entrambi i 
lati dello scritto. 

6 dovrà essere usata una carta formato A4 e 
lo scritto dovrà occupare un solo lato del 
foglio (caratteri maiuscoli e minuscoli). 

^i fogli dovranno essere uniti con una clip. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il la cartuccia per 
Microdrive dovranno essere etichettati con il no- 
me dell’autore, il titolo dell’articolo, il titolo del- 


l’articolo, il computer interessato e soprattutto 
le eventuali espansioni richieste. Come suggeri- 
menti di programmazione si consiglia di usare 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere detta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gli articoli ed i programmi potranno avere 
qualsiasi lunghezza - da una routine di 
una sola linea fino a programmi molto complessi, 
volendo includere fotografie, questi do- 
vranno avere formato 24x36, o 6x6, in 
bianco e nero o diapositive. 

non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del programma (da un minimo di L. 
50.000 a un massimo di L. 300 . 000 ). Il paga- 
mento è effettuato in caso di pubblicazione del la- 
voro. 

il materiale ricevuto e non pubblicato non 
verrà restituito. 


Spedite i vostri lavori a: 

SUPERSINC 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 









La Redazione 


EDITORIALE 






mt 

¥ computer trattati nella rivista possono, in qualche modo, definirsi “picco- 
M. li”. Vuoi per una ragione di carattere fisico (dimensioni) vuoi perché il 
loro costo di acquisto è decisamente moderato. Fortunatamente questi 
non sono più i parametri che determinano le qualità e le potenzialità di 
un calcolatore personale. Il mercato del personal propone continuamente 
soluzioni con rapporto prezzo/prestazioni sempre più favorevoli e impen- 
sabili solo fino a pochi anni fa. L’unico problema è rappresentato dal saper 
individuare l’esatta fascia di utilizzo del proprio computer. Ci sono ancora 
molti utenti che pensano al calcolatore personale come un possibile stru- 
mento di sofisticate e complicate applicazioni gestionali; quelle applicazioni 
che da sempre hanno richiesto hardware e software di una certa mole. 
Nonostante la costante crescita dei prodotti hardware e software, siamo 
ancora molto lontani dal poter disporre di attrezzature e di programmi 
necessari alla efficace realizzazione di procedure aziendali che, in qualche 
modo, condizionano poi l’andamento della stessa azienda. Dunque il nostro 
“piccolo” computer deve essere utilizzato in modo corretto. Tra le applica- 
zioni possibili è relativamente semplice individuare quelle la cui fattibilità 
è certamente compatibile con la dimensione del piccolo personal. Per 
cominciare si possono gestire piccoli archivi di dati personali, come gli 
indirizzi di amici e parenti e rubriche telefoniche soggette ad aggiornamenti 
periodici. L’elaborazione dei testi è forse la più importante applicazione 
egregiamente assolta anche da attrezzature di costo modesto; chiunque 
ha la necessità di scrivere lettere, tesi, relazioni può giustificare l’acquisto 
di un piccolo computer solo per l’utilità del word processing. Sono ancora 
numerose le possibilità da citare. Il calcolo scientifico: gli studenti potranno 
trarre gran profitto utilizzando il calcolatore per la soluzione di specifici 
problemi. La didattica: l’apprendimento della programmazione deve far 
parte del bagaglio culturale dei giovani. Il gioco, che è da sempre il miglior 
modo di avvicinare e familiarizzare con il nuovo oggetto; quando il gioco 
è di azione sviluppa i riflessi, quando richiede strategie particolari sviluppa 
ed esalta la capacità di ragionamento. 

Sono state citate solo le più macroscopiche possibilità di applicazione del 
nostro “piccolo” computer che comunque sono indicative delle sue grandi 
potenzialità; è per questo che dovete essere soddisfatti della scelta opera- 
ta, anche quando qualcuno vi parla del suo “megacomputer” 

Pietro Dell’Orco 
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Piccola guida per 
l’input 

dei programmi 


I programmi pubblicati da SUPERSINC sono stati ac- 
curatamente provati e verificati in questo modo spe- 
riamo di avere ridotto al minimo la possibilità di errori. 
Nel caso comunque un programma dovesse presentare 
malfunzionamenti, pubblicheremo le modifiche da ap- 
prontare in uno dei numeri immediatamente successivi 
della rivista. 

Per utilizzare i programmi pubblicati è sufficiente digi- 
tare i relativi listati sulla tastiera del calcolatore. 

Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo grafi- 
co, per semplificare la comprensione dei listati. 

Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici pre- 
definiti (i tasti numerici da 1 a 8 e gli stessi “shiftati”) 
e una serie di caratteri definibili dall’utente nell’ambito 
di un programma (le lettere da A a U). 

In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrassegna- 
to dalla lettera G lampeggiante) premendo contempo- 
raneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono indi- 
cati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Ad esempio {G4j significa che occorre digitare il tasto 
4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo tasto 
numerico premendo contemporaneamente il tasto 
CAPS-SHIFT. 

Ad esempio quando si trova la codifica { G2 }, occorre 
premere il tasto 2 contemporaneamente al tasto CAPS- 
SHIFT, ovviamente con il cursore in modo grafico. In 
entrambi i casi precedenti, quando un simbolo grafico 
deve essere digitato più volte, i caratteri G o SG della 
codifica sono preceduti da un numero che specifica 
quante volte va premuto il tasto grafico indicato. 

Così ad esempio { 8G5 } significa che il tasto grafico 5 
va digitato 8 volte e analogamente {4SG1 } indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battuti 
4 volte. 

I caratteri grafici definibili (le lettere da A a U in modo 
grafico) hanno una codifica semplificata: la lettera cor- 
rispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, una 
A sottolineata, occorre entrare in modo grafico (al soli- 
to premendo contemporaneamente i tasti CAPS- 
SHIFT e 9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A. 


Quando leggete || Premete 

Vedrete 

Quando leggete 

Premete 

Vedrete 


{Gl} 


EH 

{G 2 } 


EHI 

{ G 3 } 


E R 

{G 4 } 


E Id 

{G 5 } 


I 5 II 

{ G 6 } 

{ G 7 } 


EU 

EH 

{ G 8 } 


1 8 1 1 

{ SG 1 } 


f CAPS 


L-SUIEI 

{SG 2 } 

Se non siete 
già in modo 

G, entrateci 
schiacciando 
contempora- 

1 CAPS 

1 SHIFT 

{ SG 3 } 

1 CAPS 

1 SHIFT 

(SG 4 } 

neamente 
CAPS SHIFT 
e 9 

1 CAPS 

l iHIFT 

{SG 5 } 

I CAPS 


L auEi 

{SG 6 } 


| CAPS 

1 ..WT - 

{SG 7 } 


1 CAPS 1 

| SHIFT | 

{SG 8 } 


| CAPS | 

L SHIFT 1 


( ±J3 

EHI 

□3 

ETJ 

EU 

EU 

EU 

Eri 



■ 

I 

31 

□ 


I 

* 


Se dovete 
uscire dal 
modo G, 
schiacciate 9 


A 

B 

C 

D 

E 

F 

G 

H 

_I 

J 

K 

L 

M 

N 

O 

P 


Q 

R 

S 

T 

U 



E 

□ 


e: 

□ 


e: 

□ 


ei 

□ 


e: 

□ 


e: 

□ 


ei 

□ 


e: 

r — 

□ 

— 1 

Se non siete 

L 

1 

già in modo 

13 

~ 1 

G, entrateci 

i — 

_ i 

schiacciando 

r — 


contempora- 

C 

1 

neamente 

t 

— « 

CAPS SHIFT 

IL 


e 9 

1— 

i 



1 


1 IVI 

EZ 

_l 

□ 


EZ 

□ 


EI 

□ 


e: 

□ 


ei 

□ 


EI 

□ 


in 

□ 


EI 

□ 


Simbolo grafico 
definito nel 
programma in uso. 


Se dovete 
uscire dal 
modo G, 
schiacciate 9 







Risposte di rOUT-INe 

Spettabile redazione , 
desidererei porre alla vostra cortese at- 
tenzione alcune domande sulle “famige- 
rate" porte di input e output: 

1) sul mio Spectrum , battendo 

10PRINT AT 0,0; in 65278: GOTO 10 

e RUN, senza più premere altri tasti, al 
momento deir accensione stampa 191 , 
poi man mano che si riscalda comincia 
ad oscillare da 191 a 255 e infine , circa 
un'ora dopo, dà solo 255. Perché? È 
una cosa normale o ce qualcosa che non 
va? 

2) Cose lo stato di default? Da che cosa 
è provocato, quando e perché? 

3) Il manuale asserisce che ci sono 
65535 porte di I/O, ma spiega l'uso di 
una dozzina di esse. A che servono le al- 
tre? 

4) Nelle porte di input che leggono la 
tastiera, DO, DI, ..., D4 leggono i vari 
tasti. Ma a cosa corrispondono D5, D6 
e D7? 

5) Che differenza c'è fra Issue 2 e Issue 
3? Come faccio a sapere di che tipo è il 
mio ZX ? 

6) Dal manuale mi è parso di capire che 
si possa far suonare lo Spectrum senza 
usare BEEP, con la porta 254. Non sono 
però riuscito a combinare nulla. 

Potreste darmi qualche ragguaglio ? 
Accludo un semplice , ma efficace pro- 
grammino. Spero tanto che mi rispondia- 
te, perché queste porte I/O mi stanno 
facendo impazzire. 

Paolo Frigo - Verona 

1-24*5) Un funzionamento come quello 
descritto non è frutto di inconvenienti 
tecnici: il suo Spectrum funziona benis- 
simo. Per inciso, si tratta di una Issue 
3, che a differenza delle precedenti può 
presentare questa “stranezza”. Per la 
cronaca, Issue 2 e Issue 3 si differenzia- 
no, più in generale, dalla presenza in 
quest’ultima di un dissipatore metallico 
di calore - visibile dal connettore poste- 
riore -, dalla... scritta apposita presen- 
te sulla scheda madre e, infine, dai valo- 
ri riportati da IN (che nella Issue 3 sono 
minori di 64 unità rispetto a quelli ana- 
loghi della Issue 2). 

Il colpevole della variazione di valore 
riferita nella lettera è il bit D6, che rap- 
presenta il valore presente nella presa 
EAR (quella di ingresso dei dati in arrivo 



dal registratore). Mentre nelle Issue 
precedenti, in mancanza di collegamen- 
ti, il valore di questo bit era stabilmente 
1, neirissue 3 quest’ultimo oscilla tra 1 
e 0. Quanto ai bit D5 e D7, essi sono 
stabilmente a 1, e non hanno impieghi 
particolari. 

3) Lo Z80 (cioè la CPU dello Spectrum) 
ha la possibilità di utilizzare 65535 di- 
versi indirizzi di I/O. È però solo un’ap- 
propriata interpretazione mediante logi- 
ca esterna che trasforma ciascuno di 
essi in una vera e propria porta. Nello 
Spectrum solo alcuni di questi indirizzi 
vengono usati come tali. Data la grande 
abbondanza dei possibili indirizzi rispet- 
to alle necessità, per indicare le singole 
porte non vengono utilizzati veri e pro- 
pri indirizzi (composti cioè da tutti i 16 
bit), ma il cambiamento di stato dei sin- 
goli bit. 

Nel caso della tastiera, ad esempio, la 
logica relativa viene attivata dal passag- 
gio a 0 di A0, mentre la condizione di 



0 di uno degli 8 bit di ordine superiore 
(A8/A15) indica il settore di tastiera 
che sarà letto. 

In genere le periferiche aggiuntive (ac- 
quistate o costruite) utilizzano indirizzi 
liberi, interpretandoli opportunamente 
attraverso i loro circuiti logici. 

6) Il bit D4 della porta 254 pilota l’alto- 
parlante. Non è però l’uno o l’altro sta- 
to di questo bit a produrre un suono, 
ma il più o meno rapido (a seconda della 
nota che si vuole generare) succedersi 
di 1 e 0. Ciò rende discretamente diffici- 
le l’utilizzo di questo sistema tramite 
BASIC. Provare, per credere, il seguen- 
te programmino: 

10 OUT 254,16 
20 OUT 254,0 
30 GO TO 10 

e, parlando di programmini, ecco anche 
quello allegato: 


10 REM *** PIANOLA *** 

20 REM by Paolo FRIGO 
30 DIM a ( 26) 

40 FOR n=l TO 26 
50 READ d: LET a(n)=d 
60 NEXT n 

70 IF INKEY$=" " THEN GO TO 70 
80 BEEP .2, a ((CODE INKEY$)-96) 

90 GO TO 70 

100 DATA 8,5,3,10,19/11 ,12,13,24,14, 
15, 16, 7, 6, 25, 26, 17, 20, 9, 21, 23, 4, 
18,2,22,1 

110 REM per cambiare la durata delle 
note, alterare il primo 
parametro del BEEP della li 
nea 80 
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Spectrum tours 

Posseggo uno Spectrum 48K: data la 
grande utilità che mi offre questo compu- 
ter specialmente nel campo scolastico , e 
date le sue ridotte dimensioni, vorrei 
renderlo portatile. 

Insorgono però al riguardo due problemi: 
l'alimentazione e la visualizzazione delle 
informazioni. Senza entrare nei dettagli 
tecnici , avrei pensato di risolvere i miei 
problemi in questa maniera: 

1) alimentazione: potrebbe essere suffi- 
ciente usare un certo numero di batterie 
ricaricabili (nichel-cadmio) in grado di of- 
frire un'autonomia di circa 2-3 ore ; 

2) visualizzazione: si potrebbe usare un 
display alfanumerico a cristalli liquidi sul 
tipo di quello utilizzato dall 'Olivetti MIO 
(8 righe di 40 caratteri ciascuna), o anche 
di una sola riga, facendo scorrere le in- 
formazioni in uscita. Questi sono i miei 
interrogativi : vi ho scritto poiché spero 
fervidamente che voi sappiate darmi del- 
le risposte in merito (fattibilità, tipo di 
batterie, collegamenti, display, costi, 
consumi, eccetera). 

Matteo Apollonio 
Chirignago (VE) 

Non è possibile risponderle esauriente- 
mente nel piccolo spazio a disposizione 
di READ & WRITE; siamo comunque 
piuttosto perplessi sulle possibilità effet- 
tive di realizzazione del suo progetto. 
Per la parte hardware i problemi non 
sono tutto sommato insormontabili: le 
difficoltà maggiori si avrebbero in cam- 
po software, dove bisognerebbe mette- 
re lo Spectrum in grado di lavorare con 
un display del tipo da lei citato. Per il 
momento giriamo la domanda ai più in- 
traprendenti tra i lettori, non escluden- 
do, se l’argomento risulta interessante, 
di parlarne in futuro sulla rivista. 


Dalle edicole al floppy disk 

Gentile redazione, 

sono un vostro ormai affezionato lettore 
e ho deciso di scrivervi per esporvi i miei 
piccoli drammi: 

1) come mai SUPERSINC esce solo alla 
fine del mese e non all' inizio, come do- 
vrebbe? Succede dappertutto o solo nel- 
la mia edicola ? 

2) Ho notato in alcuni programmi, quali 
i( Cubo 2D" di SUPERSINC numero 2 e 
in quasi tutti i programmi per lo ZX81, 
che l'istruzione di REM iniziale è seguita 
da numerosi e a volte strani simboli; qual 
è il loro significato ? Non si ignorano i 
comandi dopo le REM? 

3) In alcuni programmi ci sono delle istru- 
zioni (generalmente REM) alla linea 0. 
Perché ogni volta che provo a digitare 
qualche istruzione alla linea 0 il computer 
mi risponde con un errore u Nonsense in 
BASIC"? 

4) Ho molto apprezzato ( grazie ! N.d.R.) 
il servizio, apparso su SUPERSINC 4, 
sui microdrive Sinclair. A proposito di 


memorie di massa, so dell'esistenza di 
floppy disk drive da 5 pollici e 1/4 della 
Sandy, inter facciabili con lo Spectrum. 
Vorrei sapere se questi possono utilizza- 
re l'interfaccia 1, in modo da poter esse- 
re collegati insieme ai microdrive. 

5) Vi sarei grato se mi spiegaste come si 
esegue uno scroll video , in qualsiasi dire- 
zione, così da potere, ad esempio, scrive- 
re su uno schermo virtuale di 40 colonne 
per 25 righe. 


Domenico Giannetti 
Sanza (SA) 

In effetti non si tratta poi di “drammi” 
così gravi! Ecco le risposte a (quasi) tutti 
i quesiti: 

1) i ritardi di SUPERSINC possono esse- 
re di due tipi: dovuti ai tempi di elabora- 
zione della rivista o dovuti a cause 
esterne (scioperi, ritardi, problemi tec- 
nici, ecc.). Fino ad ora le cause di ritar- 
do effettivo sono da ricercarsi in incon- 
venienti del secondo tipo, principalmen- 
te problemi connessi alla distribuzione, 
di cui non siamo però responsabili in 
alcun modo. Le nostre colpe sono quel- 
le di non riuscire sempre a rispettare 
con precisione alcune scadenze tecni- 
che: assicuriamo però che non ricorre- 
remo a stratagemmi tipo numeri con 
data doppia, e che tutti (acquirenti in 
edicola e abbonati) riceveranno i loro 
1 1 numeri annuali di SUPERSINC. 

2) Quelle istruzioni REM in realtà con- 
tengono routine in linguaggio macchina 
connesse al funzionamento del pro- 
gramma. Si tratta di una strada, sullo 
ZX81, praticamente obbligata, per fare 
uso di linguaggio macchina: sullo Spec- 
trum, invece, esistono maniere molto 
più comode di memorizzare il linguag- 
gio macchina, abbassando RAMTOP e 
richiamando la routine con RANDOMI- 
ZE USR..., per esempio. Oltretutto, sul- 
lo Spectrum le routine contenute in 
REM possono provocare sgradevoli ef- 
fetti in sede di visualizzazione dei listati, 
e “Cubo 2D” ne è un esempio. 

3) Normalmente l’interprete BASIC 
dello Spectrum considera validi sola- 
mente i numeri di linea che vanno da 1 
a 9999. E però possibile trasformare in 
0 il numero della prima linea del pro- 
gramma, agendo opportunamente sulla 
variabile di sistema PROG, memorizza- 
ta nelle locazioni 23635 e 23636. Il pro- 
grammino da provare è 

10 REM una volta questa era la linea 10 
20 LET a=PEEK 23635+256TEEK 
23636: REM la variabile è l’indirizzo di 
inizio del programma 
30 POKE a,0: POKE a+1,0 
40 LIST 

Una linea 0 non è editabile né cancella- 
bile (anche se è possibile modificarne 
nuovamente il numero: provare a modi- 
ficare la linea 30 in POKE a, 3: POKE 
a+ 1,232, come esempio) 

4) E proprio così! 

5) È un po’ complicato rispondere in 


due righe... ma certamente ce ne sarà 
l’occasione più avanti! 


L’anellide mancante 

Perché se esigete da noi lettori nastri di 
buona qualità e buone registrazioni non 
fate altrettanto ?! Nel programma “Anel- 
lide " dove avete messo il CODE del labi- 
rinto? Vorrei sapere anche un'altra cosa : 
se si è provvisti di idee ma non di stam- 
pante, è possibile inviare solo la cassetta 
di un nostro programma? 

Giuseppe Cantale - Catania 

Quella di “Anellide” è stata una disgra- 
ziata svista (a cui però ci sembra di ave- 
re rimediato perfettamente nel numero 
4), che contiamo non si ripeterà. A par- 
te questo, accettiamo dai lettori solo 
programmi (condizione indispensabile) 
registrati su cassette: il listato è solo un 
optional, in quanto ci rende più comodo 
l’esame del programma, e non è per 
niente necessario. 


Lo ZX81 è ancora vivo! 

La rivista è eccezionale; bisogna però, a 
mio avviso, togliere completamente lo 
spazio dello ZX81 per dedicare tutta la 
rivista al magnifico ZX Spectrum... 

Sergio Remondino - Ivrea (TO) 

Se dipendesse da noi, amplieremmo sia 
la parte Spectrum che quella ZX81: 
non sempre, purtroppo, tutto è possibi- 
le. Intanto, però, è giusto che gli utenti 
ZX81 (in numero maggiore di quanto si 
creda comunemente) abbiano il loro più 
che legittimo sdazio a disposizione su 
SUPERSINC. E inevitabile che, con la 
formula attuale, gli “ottantunisti” si sen- 
tano un poco sacrificati: la colpa non è 
però tutta nostra, poiché - tiratina 
d’orecchi - per avere più pagine biso- 
gna sapersele meritare (leggi: scrivere 
programmi, proporre articoli, parteci- 
pare attivamente alla vita della rivi- 
sta...). Da parte nostra promettiamo 
che, se incontreremo il gradimento del- 
la maggioranza dei lettori, non appena 
possibile lo spazio ZX81 sarà aumenta- 
to (non a spese di Spectrum, beninteso). 
Bisogna anche considerare il prossimo 
arrivo del QL: qualche pagina la merite- 
rà anche lui... 


È in arrivo nn bastimento carico 

di... 

Perché non pubblicate listati per giochi 
con le carte, versione Spectrum? 

Alessandro Coslovich - Trieste 

“Poker” non è stato un esempio isolato: 
i giochi di cui parli sono già in corso di 
lavorazione e arriveranno entro pochi 
numeri. 
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Ora lo Spectrum 
ha qualcosa in Plus 


Senza il consueto clamore pub- 
blicitario, la Sinclair Research 
ha introdotto sul mercato il suo 
altimo modello di Spectram. 
L'ennesima sorpresa di sir di- 
ve! 


Prime impressioni 

A prendo la confezione ci si trova di 
fronte una macchina davvero note- 
vole. 

L’estetica, veramente riuscita, è simile 
a quella del QL, anche 
nell’alimentatore, dando 
al tutto un aspetto mol- 
to più squadrato e so- 
lido. In tutto e per tutto 
un “vero” computer, 
insomma. 

Ma quali meraviglie elet- 
troniche si celano sotto 
questa fantastica “carrozze- 
ria”? Forse il sistema opera- 
tivo del TS2068, l’equivalen- 
te americano dello Spectrum? 
Aprendolo, si scopre che mol- 
to è cambiato nella forma, ma 
praticamente nulla nella sostanza. Si 
tatta né più né meno di un normalissimo 
Spectrum, con l’unica differenza dhuna 
scheda madre estremamente pulita e 
ordinata, nonché al riparo da qualun- 
que pericolo di surriscaldamento, visto 
l’ampio spazio vuoto che la circonda e 
le generose prese d’aria sistemate stra- 
tegicamente nei punti, in tutti i sensi, 
più caldi. L’altoparlantino incorporato 
è in posizione molto meno “soffocata” 
che in passato, tanto che il volume del 
BEEP si è alzato in misura apprezzabi- 
le. 

Tornando aH’ésterno, la prima cosa che 
colpisce è la tastiera, non più costituita 
dai tastini di gomma - dispregiativa- 



mente chiamati in Inghilterra con l’ap- 
pellativo di “dead flesh”, carne morta 
- che tante critiche hanno suscitato, ma 
da veri tasti in plastica nera; le diciture 
multicolori, inoltre, sono state tutte so- 
stituite da scritte bianche. 

Seconda novità, il manuale, compieta- 
mente rinnovato. Sebbene non artistico 
nella copertina come la precedente edi- 
zione, è ricchissimo di fotografie a colori 
ed esempi interessanti, pur risultando 
più sottile. 

La famosa cassetta Horizons, infine, è 
stata messa a riposo, sostituita da un 
nuovo nastro contenente nuovi pro- 
grammi. Il tutto non è opera della Psion, 
come qualcuno potrebbe erroneamente 


pensare, bensì della Dorling Kindersley, 
casa editrice britannica apparsa di re- 
cente nel Regno Unito con una serie di 
volumi dedicati alla programmazione, 
di notevole successo. 

Uno sguardo più da vicino 

Un esame più attento della macchina 
rivela che, come già detto, in effetti ci 
troviamo di fronte al “vecchio” Spec- 
trum 48K, corredato di un nuovo conte- 
nitore ed una nuova tastiera. Questo 
vuol dire naturalmente che tutto il mare 
di software prodotto per lo Spectrum 
sarà ancora perfettamente utilizzabile 
con lo Spectrum+, per il sollievo di in- 
numerevoli case produttrici. Più esatta- 
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mente, gli unici problemi di compatibili- 
tà che abbiamo incontrato riguardano i 
programmi completi di una opzione di 
ridefinizione dei tasti: vale a dire che 
sembra non sia possibile indicare tasti 
non esistenti sul vecchio Spectrum. Per 
esempio, risultano utilizzabili i tasti 
5,6, 7,8, ma non i nuovi tasti cursore. 
Quanto al BASIC, il valore normale del- 
le IN relative alla lettura della tastiera 
è 191, come nelle vecchie Issue 3. Di- 
ciamo vecchie perché l’esemplare in no- 
stro possesso risulta essere, come da 
scritta sul bordo della scheda, una ver- 
sione... 6A. Non sappiamo ancora bene 
che modifiche siano state apportate ri- 
spetto alle precedenti versioni; in ogni 
caso deve trattarsi di particolari margi- 
nali, ininfluenti ai fini dell’uso di pratica- 
mente tutti i programmi. 
Completamente compatibili saranno 
anche le periferiche hardware, sebbene 
qualche problema possa sorgere per 
l’aumentato spessore del contenitore, 
che impedisce un adeguato aggancio a 
quelle unità per cui questo è previsto 
sul bordo superiore. Fra queste, le ben 
note interfacce Kempston, DK’Tronics 
e Cheetah. Nessun problema, ovvia- 
mente, sorge invece con Microdrive, in- 
terfaccia I ed interfaccia II. 

Passiamo adesso ad uno sguardo criti- 
co, tenendo presente che per un prezzo 
più o meno uguale è possibile acquista- 
re uno Spectrum normale ed una tastie- 
ra separata. 

La tastiera 

L’impressione (senza ricorrere allo 
smontaggio del computer) è che si tratti 
della solita membrana in gomma, sor- 
montata dai nuovi tasti in plastica. 
L’insieme funziona piuttosto bene, con 
un’azione sicura ed un ritorno pronto. I 
tasti danno una buona sensazione al tat- 
to e scorrono senza incertezze, ad ecce- 
zione dei due CAPS SHIFT e di EN- 
TER, che possono presentare qualche 
ondeggiamento. Il fenomeno non si ma- 
nifesta invece con la barra spaziatrice, 
molto ben bilanciata. 

Chiunque sia abituato ad altre tastiere 
troverà questa un po’ troppo silenziosa 
(nessun “clic” rassicurante) ed i tasti 
che nella battitura veloce risultano forse 



un po’ troppo ravvicinati tra loro. Si 
tratta comunque più che altro di abi- 
tuarsi alla nuova tastiera, e solo il tem- 
po potrà dire la parola definitiva. 



Come nel QL, i tasti sono piatti con un 
rilievo centrale di forma concava. 

Un tocco raffinato è l’aggiunta di due 
piedini posteriori regolabili in altezza 
(inseriti nella carrozzeria, a differenza 
di quelli del QL, staccati dalla macchina 
e un po’ troppo traballanti), che danno 
alla tastiera una piacevole inclinazione 
in avanti. Naturalmente, se avete qual- 
che periferica inserita nel connettore 
posteriore, questa si troverà a fluttuare 
a mezz’aria, pericolosamente sostenuta 
solo dalla sua spina. 

Davvero notevole è l’aggiunta di tasti 
extra. Il primo, e più ovvio, è la piccola 
(ma finalmente messa al posto giusto) 
barra spaziatrice, ma non mancano al- 
tre novità, per un totale di ben 58 tasti. 
Ad ogni lato della tastiera è presente, 
in basso, un CAPS SHIFT di dimensioni 
doppie, mentre l’ENTER è a forma di 
grande L invertita, come nel QL. 
Sempre a ciascun lato in basso sono 
presenti due SIMBOL SHIFT; troviamo 
inoltre tasti che consentono di accedere 
con un’unica pressione alle funzioni 
TRUE VIDEO, INVERSE VIDEO, DE- 
LETE, GRAPHICS, EXTENDED MO- 
DE (cioè il modo E), EDIT, CAPS 
LOCK, BREAK, nonché ai simboli pun- 
to, virgola, punto e virgola, doppio api- 
ce ed ai cursori. Senz’altro queste ag- 
giunte renderanno più semplice la pro- 
grammazione, aumentando la praticità 
man mano che ci si abitua ad esse. 

I nuovi tasti cursore si trovano in un’otti- 
ma posizione per i giochi, ma purtropo, 
essendo già “shiftati”, non funzionano 
con la maggioranza dei programmi che 
fanno uso dei cursori. 

Sulla sinistra, infine, ben protetto sotto 
il bordo sporgente della tastiera, trovia- 
mo un piccolo bottone. Si tratta del ta- 
sto di RESET. Finalmente non ci sarà 
più bisogno, trovandosi bloccati in un 
gioco in cui il BREAK è disabilitato od 
in una routine in linguaggio macchina, 
di staccare la spina: basterà premere 
un bottone! Gran vantaggio per il logo- 
rio della presa di alimentazione e, pro- 
babilmente, l’aggiunta più intensamen- 


te desiderata da molti, finalmente pre- 
sente sullo Spectrum. 

Il manuale 

E decisamente meglio del vecchio. E vi- 
vace, ben scritto, interessante. Pur ini- 
ziando dalle cose più semplici, come il 
collegamente e la prima accensione del 
computer, giunge subito alla presenta- 
zione di brevi programmi, senza chiu- 
dersi nell’arida teoria. 

Ogni punto importante è stato sottoli- 
neato da fotografie a colori dello scher- 
mo, e l’impostazione di tutto il testo è 
improntata alla semplicità. Non pochi 
possessori del vecchio Spectrum, pen- 
siamo, cercheranno di farsi prestare il 
nuovo manuale per provare i nuovi pro- 
grammi. Una persona, dopo aver letto 
la parte riguardante la grafica definibi- 
le, ha, esclamato in nostra presenza: 
“Oh! E cosi che sistema binario e UDG 
sono in relazione!”; e si trattava, bada- 
te, di un possessore di Spectrum da 
quasi otto mesi. 

Sebbene le dimensioni del nuovo ma- 
nuale siano inferiori a quelle del vec- 
chio, a quanto abbiamo potuto vedere 
tutto ciò che veniva trattato nella prece- 
dente versione c’è anche qui. Le uniche 
critiche che possono essere fatte riguar- 
dano la difficoltà, da parte dell’utilizza- 
tore esperto, nel trovare specifiche in- 
formazioni (ad esempio il codice esade- 
cimale di un certo carattere) e la tradu- 
zione, che per signorilità ci limiteremo 
a definire poco curata. 

Lo stesso si può dire della cassetta, mol- 
to ben fatta come livello di programma- 
zione e bruttina (sempre signorilmente 
parlando) per ciò che riguarda la tradu- 
zione italiana, anche se a onor del vero 
esistono in questo caso delle leggere at- 
tenuanti, relative alla maggiore lunghez- 
za dei messaggi italiani rispetto a quelli 
inglesi. La cassetta contiene sul lato A 
un lunghissimo, unico programma intro- 
duttivo, che permette all’utente di fami- 
liarizzare un poco alla alla volta con i 
misteri della tastiera, oltre a prodursi in 
un eccezionale spettacolo di grafica in 
alta risoluzione, che consigliamo a tutti 
di vedere. Sulla seconda parte trovano 
posto (sempre effettuando un carica- 
mento unico, dettaglio importante che 
eviterà molti problemi agli inesperti) 
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due ottimi giochini - e che differenza 
tra il vecchio “Wall” Psion e il suo odier- 
no parente “Demolition”! - e un bel 
generatore di caratteri grafici. Entrambi 
i lati sono composti da un lunghissimo 
main program scritto in comunissimo 
BASIC, più alcune routine ausiliarie in 
linguaggio machina. Curiosando nel li- 
stato, si scopre anche una completa 
routine di salvataggio dei due program- 
mi, ottenibile digitando (a caricamento 
terminato) il simbolo di lira sterlina - 
SYMBOL SHIFT e “x” - seguito dal 
dollaro (SYMBOL SHIFT e “4”). In de- 
finitiva, meno materiale di quanto offri- 
va la cassetta “Horizons”, ma più “ami- 
chevole” e immediato, anche se, lo ripe- 
tiamo, i traduttori non erano certo nelle 
loro migliori condizioni psicofisiche. 

L’uso 

La nuova tastiera si fa subito sentire, 
ed i nuovi tasti rendono davvero rapida 
la programmazione; la dattilografa cui 
è stata fatta provare, comunque, l’ha 


* 

trovata poco adatta per una digitazione 
veloce. 

Da parte nostra abbiamo incontrato 
qualche difficoltà, sebbene utenti Spec- 
trum della prima ora, per il fatto che 
ora tutte le parole del BASIC sono scrit- 
te in bianco e sui tasti. Sembra incredi- 
bile, ma la ricerca di alcune funzioni ha 
richiesto un certo tempo, pur sapendo 
bene dove sarebbero dovuto essere. In 
effetti non si può dire che la nuova di- 
sposizione non risponda a criteri logici: 
i comandi e le parole chiave ottenibili 
con SYMBOL SHIFT sono sulla parte 
concava dei tasti, mentre quelle per cui 
è necessario il passagio al modo E, pre- 
cedentemente scritte in rosso e verde, 
sono adesso sulla parte superiore, piat- 
ta, di ciascun tasto. Anche qui un po’ 
di pratica risolverà i problemi, specie 
per i segni di interpunzione già menzio- 
nati e ora presenti su tasti singoli, situati 
in posizioni non standard e, le prime 
volte, se usate abitualmente la tastiera 
nei giochi, l’azione più sicura e la forma 
concava dei tasti del Plus vi daranno 
sen’altro delle soddisfazioni (è bastato 
un tentativo per distruggere i nostri pre- 
cedenti record nel “Daley Thompson’s 
Decathlon”, giochino in cui rispondenza 
e resistenza dei tasti sono vitali per otte- 
nere buoni risultati), sebbene la mutata 
posizione di alcuni tasti possa creare 
situazioni di difficoltà. Naturalmente, se 
usate interfaccia e joystik non troverete 
alcuna differenza! 

Conclusioni 

Si tratta di una macchina dall’estetica 
davvero splendida, senz’altro un grosso 
miglioramento rispetto al vecchio Spec- 
trum. Certo, non è perfetta, ma quale 
computer lo è! 



Il manuale è uno dei migliori che ci sia 
capitato di vedere, specialmente per i 
principianti, anche facendo il confronto 
con quelli di computer del prezzo ben 
più elevato. Anche la cattiva traduzione 
non crea grossi problemi di comprensio- 
ne, e molti saranno felicissimi di poter 
leggere un manuale in italiano anziché 
doversi tradurre quello inglese. 

Pare che la Sinclair non abbia intenzio- 
ne di vendere separatamente la nuova 
tastiera: lo Spectrum- originale non ha 
perciò la possibilità di essere trasforma- 
to in Plus. Diverso è invece il discorso 
per il manuale e la cassetta, che pare 
saranno posti in vendita anche separa- 
tamente. 

La nostra personale opinione è che esi- 
stano, sul mercato, tastiere altrettanto 
valide, se non addirittura superiori, ad 
un prezzo globale più o meno uguale a 
quello del Plus, interessanti specialmen- 
te per quanto riguarda alcune loro ca- 
ratteristiche particolari, come il tastieri- 
no numerico. Per coloro che non inten- 
dono sobbarcarsi il “lavoro” di aggiun- 
gere da soli una tastiera al loro Spec- 
trum, senz’altro il Plus è un’alternativa 
validissima. Ci è capitato comunque di 
notare un’espressione di invidia sul vol- 
to di un possessore di Spectrum con 
tastiera aggiuntiva! 

Pare proprio che sir Clive abbia ascolta- 
to le critiche e si sia sforzato di modifica- 
re la sua macchina tenendole presenti. 
Tutto sommato, però, il prezzo ci sem- 
bra un po’ elevato. Probabilmente cin- 
quantamila lire in meno farebbero dello 
Spectrum Plus un prodotto davvero al- 
lettante; ma siamo sicuri che il prezzo 
sia destinato, per ragioni di mercato, a 
diminuire entro breve. 


leggete 
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Logo e tartarughe 


di Tim Hartnell 

trad. e adatt. di Marcello Spero 
Terza parte 



I n questa parte, l’ultima della serie, 
troverete il segmento finale del pro- 
gramma Logo per lo Spectrum 48K, 
nonché una dimostrazione di program- 
mazione strutturata con il Logo. 

Per aggiungere il programma che trova- 
te in questa puntata al blocco già realiz- 
zato in precedenza seguite questo sche- 
ma. 

1 - Copiate il listato e salvatelo su cas- 
setta (utilizzate, naturalmente, il pro- 
gramma già salvato sulla cassetta alle- 
gata a questo numero). 

2 - Quindi caricate nel vostro Spec- 
trum il programma precedente (quello 
composto dalle parti 1 e 2). 

3 - Infine caricate con MERGE ”” il 
programma di questa puntata. 

4 - Non vi resta ora che salvare il tutto, 
cioè il programma Logo finalmente 
completo. 

Ora siete pronti a dare RUN. 

Nuovi comandi 

L’aggiunta di quest’ultima parte di pro- 
gramma porta alla comparsa di due 
nuovi comandi. Il primo è SFONDO 
(SF), che consente di definire il colore 
di sfondo (cioè PAPER) di specifiche zo- 
ne dello schermo. I parametri che devo- 
no seguire il nome del comando sono 
cinque. Eccovi un esempio che potete 
subito provare: 

SFONDO 0 0 31 6 5 

I primi quattro numeri definiscono 
l’area, rettangolare, che dovrà essere 
“colorata”, mentre l’ultimo numero è il 
colore (da 0 a 7, seguendo il sistema 
usato sulla tastiera dello Spectrum). I 
primi due numeri sono le coordinate x 
ed y dell’estremo superiore sinistro del- 
l’area da colorare. Nell’esempio, 0 0 
corrisponde all’angolo in alto a sinistra 
dello schermo, a differenza delle istru- 
zioni NUOVA..., in cui l’origine delle 
coordinate è in basso a sinistra. In effet- 
ti, le coordinate di SFONDO sono dello 
stesso tipo di quelle usate dal comando 
BASIC PRINT AT. Il terzo e quarto nu- 
mero rappresentano larghezza ed altez- 
za del rettangolo da colorare. Nel- 
l’esempio il numero 31 è l’intera lar- 


ghezza dello schermo, mentre il 6 indica 
un’altezza di sei caratteri verso il basso. 
Il numero 5 è il colore ciano, e perciò 
l’esempio colorerà in ciano un blocco in 
alto sullo schermo. In un altro esempio, 
che troverete più avanti, un comando 
dello stesso tipo serve a rappresentare 
il cielo in una scena costruita con co- 
mandi Logo. 

L’altro comando nuovo è LISTA. Serve 
a listare sullo schermo o sulla stampan- 
te un programma Logo. Poiché, comun- 
que, non abbiamo ancora visto come 
creare un programma Logo, per ora 
non avete nulla da listare! 

Definiamo nnovl comandi Logo 

I programmi Logo vengono costruiti 
creando nuovi comandi, a partire da 
quelli che il Logo già conosce. Un nuovo 
comando si crea con DEFINISCO (DF). 
Molte versioni del Logo usano, al posto 
di DEFINISCO, la parola PER, ma qui 


si è pensato che la prima fosse più chia- 
ra. Per completare DEFINISCO occor- 
re aggiungergli il nome del nuovo co- 
mando, che dovrà ovviamente essere 
diverso da qualsiasi altro già esistente. 
Come esempio, proviamo ad insegnare 
al computer come si disegna un rettan- 
golo. Scrivete, prima di tutto: 

DEFINISCO RETTANGOLO (o DF 
RETTANGOLO) 

Lo schermo verrà cancellato e, dopo 
che il computer avrà controllato che 
non esista già un comando RETTAN- 
GOLO, apparirà in alto sullo schermo 
il messaggio DEFINISCO RETTANGO- 
LO, mentre in basso vedrete la solita 
“W:”. 

Non esiste un unico modo per definire 
nuovi comandi in Logo; probabilmente 
i sistemi sono tanti quante sono le ver- 
sioni di questo linguaggio. Il metodo 
adottato in questo caso è quindi uno dei 
molti possibili. 
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Per definire il nostro rettangolo scrivia- 
mo il comando: 

RP 4 ( AA 40 DX 90 ) 

e premiamo quindi ENTER. 

La linea apparirà in alto sullo schermo, 
contrassegnata dal numero 0. La nume- 
razione delle linee non è usata dal Logo, 
e viene qui aggiunta solo per rendere 
più semplice l’identificazione di una par- 
ticolare linea cui si volessero apportare 
delle modifiche. In ciascuna definizione 
è possibile arrivare ad un massimo di 
dieci linee, ciascuna delle quali non più 
lunga di 28 caratteri. Per definire il no- 
tro rettangolo tutto ciò di cui abbiamo 
bisogno è la linea appena introdotta; 
facciamo perciò sapere al computer che 
abbiamo terminato, dandogli FINE. A 
questo punto otterremo un messaggio 
che ci comunica l’avvenuto immagazzi- 
namento del nuovo comando RETTAN- 
GOLO, e quindi ci verrà dato uno scher- 
mo pulito con il solito simbolo “W:” in 
basso. Il Logo d’ora in poi accetterà 
RETTANGOLO come un comando: 
provate! 

Nelle vostre definizioni potete anche in- 
cludere comandi precedentemente defi- 
niti. Per esempio, proviamo a definire 
il comando DISEGNO in questo mo- 
do: 

DEFINISCO DISEGNO 

RP 8 ( RETTANGOLO DX 45 ) 

FINE 

Una volta completato provate a dare 
DISEGNO come un comando; otterrete 
un motivo grafico basato sulla routine 
RETTANGOLO. La figura 2 contiene 
un altro comando, MUOVI, che usa an- 
ch’esso RETTANGOLO. 

Definiamo il comando come abbiamo 
fatto finora, e quindi diamo MUOVI co- 
me comando diretto. Questa definizione 
utilizza diversi comandi visti nella prima 
e seconda parte. 

La correzione dei comandi 

Il disegno che si ottiene con DISEGNO 
non è particolarmente esaltante; possia- 
mo perciò cercare di migliorarlo. Per 
fare questo useremo il comando COR- 
REGGO. La sintassi completa sarà 
CORREGGO DISEGNO. Una volta in- 
trodotto questo comando il computer 
passerà qualche istante alla ricerca di 
DISEGNO ed a renderlo pronto ad es- 
sere modificato. A questo punto la defi- 
nizione apparirà sullo schermo, così co- 
me l’avevate scritta voi (a parte la paro- 
la FINE). In basso vedrete invece una 
lista di opzioni. 

La prima opzione è MODIFICA. Per- 
mette la modifica di una linea. Date il 
numero della linea che volete modifica- 
re e riscrivete le ’inea debitamente cor- 
retta. 

La seconda opzione, INSERISCI, con- 
sente l’inserimeìito di una nuova linea 
fra due già esisi iti. Ricordate che in 
nee o meno. Inserendo una nuova linea, 


ad esempio la 2, la vecchia linea 2 di- 
venterà automaticamente la 3, la 3 di- 
venterà la 4 e così via. 

CANCELLA (opzione 3) permette di 
cancellare una linea. 

ELIMINA (opzione 4) fa sparire l’intera 
definizione. 

Premendo il 5 si ritorna invece al modo 
normale (W:). 


DEFINISCO MUOVI 
PS NY 50 PG RETTANGOLO 
PS NX 120 PG RETTANGOLO 
PS NX 190 PG RETTANGOLO 
FINE 


Fig.l. Definizione del comando MUO- 
VI 


Per modificare il comando DISEGNO 
dovremo correggere la linea 0. 
Premiamo 1 per l’opzione MODIFICA, 
e quindi 0 per indicare che è la linea 0 
che vogliamo correggere. Quindi scri- 
viamo: 

RP 12 ( RETTANGOLO DX 30 ) 

Premiamo ora 5 per uscire dal modo di 
correzione e diamo il comando PRONTI 
per pulire lo schermo e riportare al cen- 
tro la tartaruga. 

Proviamo adesso il nuovo DISEGNO. 

Strutture del Logo 

A questo punto dovreste esservi fatta 
un’idea di come si costruiscono i pro- 
grammi in Logo. Ciascuna definizione 
deve poter funzionare in modo indipen- 
dente; controllate sempre, prima di pas- 
sare ad un’altra. 

Questa è quella che viene chiamata pro- 
grammazione strutturata. Ha il grande 
vantaggio di rendere più semplice la 
comprensione di ciò che il programma 


vuol fare (rispetto, ad esempio, ad un 
linguaggio non strutturato come il BA- 
SIC) e di conseguenza la correzione de- 
gli eventuali errori. Programmi scritti in 
questo modo, inoltre, risultano più facili 
da comprendere per gli altri. Le istru- 
zioni PROCEDURE del BBC e DEFine 
PROCedure del QL permettono una 
strutturazione dei programmi simile a 
questa. 

Per iniziarvi alla programmazione in Lo- 
go la figura 3 contiene un listato ottenu- 
to con il comando LISTA. Quando scri- 
vete un programma LOGO ricordate di 
introdurre una definizione per volta 
(concludete ognuna con FINE, che non 
si vede nel listato), e quindi provatela 
e correggetela, se necessario, prima di 
passare alla successiva. Nel program- 
ma dell’esempio notate come il coman- 
do SCENA sia quello che usa, nella^sua 
definizione, tutti gli altri comandi. E in- 
fatti il comando principale del program- 
ma; l’intero programma (che è tutto 
conservato nel computer) partirà dando 
il comando SCENA. In questo sta la 
maggior differenza del Logo rispetto al 
BASIC. I suoi programmi, infatti, non 
partono sempre e solo con un comando 
RUN; partono invece con un comando 
definito di volta in volta, che costituisce 
il “nucleo” del programma stesso. 

Ci sarebbero molte altre cose da dire, 
sul Logo, oltre a quelle viste in questa 
serie. Il Logo può utilizzare anche delle 
variabili; consente di operare delle scel- 
te, con strutture del tipo SE... ALLO- 
RA... ALTRIMENTI; con il Logo è per- 
sino possibile elaborare testi. 

Se volete approfondire le vostre cono- 
scenze in merito, esistono parecchi buo- 
ni testi. A dispetto delle limitazioni del 
programma fin qui presentato, spero vi 
siate fatti un’idea delle affascinanti pos- 
sibilità offerte dal Logo, sia come intro- 
duzione alla programmazione per gran- 
di e piccoli che, più semplicemente, co- 
me strumento per disegnare. 
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Logo 3 

versione per ZX Spectrum 48K 

110 DATA 18,24,1 
140 DATA "LI" ,61 00, "SF" ,6500 
240 DATA "LISTA", 6100, "SFONDO", 6500 
61 00 REM LISTA 
6105 IF def < 1 THEN RETURN 
6110 PRINT #1; "LISTA - 1 Su schermo"' 
TAB 8; "2 su stampante?" 

6115 LET z$=INKEY$ : IF z$="" THEN 
GO TO 61 1 5 

6120 IF z$="l" THEN LET li=l : 

GO TO 6200 

6125 IF z$="2" THEN LET li=2: 

GO TO 61 40 
6130 GO TO 6115 

6140 CLS : PRINT "Listato su stampant 
e - attendere" 

6145 OPEN #2 , "p" 

6150 FOR j=l TO def: GO SUB 6300 
6155 PRINT : NEXT j 
6160 OPEN #2 , "s" : RETURN 
6200 FOR j=l TO def 

6205 CLS : PRINT # 1 ; "Attendere , per f 
avore" 

6210 GO SUB 6300 

6215 IF INKEY$=" " THEN GO TO 6215 
6220 NEXT j: RETURN 
6300 LET ed= j : GO SUB 5805 
6305 LET y$=w$ ( j+n) 

6310 PRINT "Definizione - " ; y$ ' ' 

6315 GO SUB 5955: RETURN 
6500 REM SFONDO 

6505 GO SUB 1200: IF err>0 THEN 
RETURN 

6510 IF a<0 OR a>31 THEN LET err=2: 
RETURN 

6515 LET col=a 

6520 GO SUB 1200: IF err>0 THEN 
RETURN 

6525 IF a<0 OR a>21 THEN LET err=2: 
RETURN 

6530 LET riga=a 

6535 GO SUB 1200: IF err>0 THEN 
RETURN 

6540 IF a<0 OR (a+col)>31 THEN LET e 
rr=2 : RETURN 
6545 LET largh=a 
6550 GO SUB 1200: IF err>0 THEN 
RETURN 

6555 IF a< 0 OR (a+riga)>21 THEN 
RETURN 

6560 LET alt=a 

6565 GO SUB 1200: IF err>0 THEN 
RETURN 

6570 IF a<0 OR a>7 THEN LET err=2: 
RETURN 

6575 FOR i=riga TO riga+alt 
6580 FOR j=col TO col+largh 
6585 LET at=22528+32*i+j 
6590 LET 11=PEEK at 

6595 LET lk=INT (11/8) : LET 11=11-8*1 
k 

6600 POKE at,ll+8*a 
6605 NEXT j: NEXT i 
6710 RETURN 


Per ricevere le riviete arretrate 
di SUPERSINC con cassetta 
compilate e spedite il coupon qui sotto! 
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Cisterne, antifurti e come 
accendere il televisore 


Attraverso nn semplice disposi- 
tivo di collegamento lo Spec- 
trum diventa veramente il “com- 
puter di casa” 


L a scorsa puntata ha visto la prima 
applicazione pratica della nostra in- 
terfaccia. Un’applicazione, quella del 
joystick, un po’ riduttiva, in verità, uti- 
lizzando essa solo la parte relativa all’in- 
put, e neanche completamente. Si trat- 
tava comunque di una realizzazione 
molto richiesta, che proprio l’alto indice 
di gradimento ha portato ad essere la 
prima presentata. 

Questa volta ci occuperemo invece di 
applicazioni di tutt’altro tipo, per la so- 
luzione di problemi “seri”. Non storcete 
il naso: riuscire a mettere in atto un 
sistema di controllo e pilotaggio per un 
congegno esterno è senz’altro fonte di 
ben maggiori soddisfazioni che non ab- 
battere qualche alieno. 

Con la costruzione dell’adattatore per 
joystick, quasi senza accorgercene ab- 
biamo dato al nostro Spectrum il primo 
mezzo per stabilire un contatto col mon- 
do esterno. Quando l’abbiamo costrui- 
to, certo, il nostro scopo era quello di 
far giungere alla CPU le informazioni 
relative alla posizione del joystick. 
Questo non vuol dire, comunque, che 
non possa servire a qualcos’altro. 

Cosa avviene quando manovriamo un 
joystick? Gli interruttori al suo interno 
si aprono e si chiudono, a seconda della 
posizione della manopola, e questa con- 
figurazione di “aperto o chiuso”, cioè 1 
e 0, viene trasmessa dall’interfaccia alla 
CPU, che la interpreta. 

Non è detto, però, che questi interrutto- 
ri debbano per forza essere quelli del 
joystick. Potrebbero essere invece dei 
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fig. 3 - disposizione di contatti in una presa Cannon femmina 


contatti applicati ad una finestra, una 
porta, un pulsante. In questo caso il 
computer, ad ogni lettura del canale di 
ingresso dell’interfaccia effettuata con 

... IN 223 

potrà sapere se qualcuna di queste fine- 
stre o porte è aperta ed eventualmente 
comportarsi di conseguenza. 

Per questo tipo di applicazione può es- 
sere interessante l’uso, al posto dei nor- 
mali interruttori, di altrettanti “reed re- 
lay”. Si tratta di piccole ampolle di ve- 
tro contenenti una coppia di contatti 
magnetizzati. Essendo polarizzati allo 
stesso modo, i due contatti si respingo- 
no ed il circuito risulta quindi aperto. 
Viceversa, avvicinando un magnete al- 
l’ampolla, per effetto della sua induzio- 
ne i due contatti si chiudono. Il sistema 
completo prevede da un lato l’ampolla 
(normalmente, nel caso di porte e fine- 
stre, essendo questa piuttosto fragile la 
si fissa alla parte immobile, cioè il tela- 
io), dall’altro un piccolo magnete (che 
viene fissato invece sul battente). 

A finestra, o porta, chiusa ampolla e 
magnete si trovano di fronte ed il con- 
tatto è chiuso; in caso di apertura, inve- 
ce, il contatto si apre. Lo schema “porta 
(o finestra) chiusa = contatto chiuso” è 
da adottare anche nel caso dei normali 
interruttori, se il sistema di controllo 
che vogliamo realizzare deve avere ca- 
ratteristiche antifurto. In questo modo, 
infatti, eventuali manomissioni (taglio, 
distacco) dei fili che collegano i vari con- 
tatti al computer sarà interpretato co- 
me un’apertura della porta o finestra 
corrispondente, con conseguente allar- 
me. 



Una parte degli otto bit disponibili può 
inoltre essere dedicata, debitamente 
collegata a pulsanti, all’eventuale disin- 
serimento a combinazione dell’antifur- 


to. Per questo bastano anche due sole 
linee; combinazioni anche molto com- 
plesse possono infatti essere costruite 
su due soli pulsanti (per esempio: pre- 
mere due volte il primo, poi quattro il 
secondo, poi tre il primo, e così via...). 
Anche qui non c’è alcun pericolo nel 
lasciare esposti i fili di collegamento; un 
loro eventuale taglio, infatti, non fareb- 


be che eliminare ogni possibilità di disin- 
serimento del sistema. 

Un metodo completamente diverso è 
quello, che vedete in figura, basato su 
di un interruttore a galleggiante. Con 
esso è possibile tenere sotto controllo il 
riempimento di vasche o cisterne od il 
loro svuotamento. 

Per quanto riguarda il collegamento 
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materiale dei contatti alla piastra del- 
l’adattatore potete utilizzare la spina 
Cannon montata per il joystick, acqui- 
stando una femmina e seguendo, per i 
collegamenti, lo schema comparso sul 
numero scorso. In questo modo saranno 
disponibili solo le cinque linee utilizzate 
dal joystick. 

Un altro tipo di collegamento, che vi 
permette di disporre di tutte e otto le 
linee, è quello diretto, cioè saldando dei 
fili a monte della spina. In ambedue i 
casi ricordatevi che ciascun interruttore 
o reed relay dovrà aprire o chiudere il 
contatto fra una linea ed il positivo di 
alimentazione. 

Finora abbiamo parlato di conoscenza, 



fig. 5 - schema di transistor e re- 
lativo funzionamento. Disposi- 
zione dei contatti nel 2N 3704 


da parte della macchina, dello stato dei 
più diversi congegni esterni. Ben limita- 
te, comunque, sono le possibilità di rea- 
zione del computer ad una loro variazio- 
ne. Con i mezzi a sua disposizione fino 
a questo momento esso non può infatti 
andare oltre un “beep” ed un apposito 
messaggio sullo schermo. 

E se volessimo azionare una sirena (o 
addirittura telefonare alla Polizia), nel 
caso dell’antifurto, o chiudere un’elet- 
trovalvola quando la nostra vasca è pie- 
na? 

Ecco che si rende necessario sfruttare 
la sezione di uscita della nostra interfac- 
cia. Ciò di cui abbiamo bisogno è un 
apparecchio che possa aprire e chiude- 
re dei contatti a seconda dello stato del- 
le varie linee di uscita, l’esatto opposto 
di quanto abbiamo appena visto per lo 
stadio di ingresso. 

La realizzazione pratica di questo con- 
gegno non è affatto complessa e si tra- 
duce nel pilotare, con le linee di uscita, 
dei relay. Si tratta di congegni elettro- 
meccanici che aprono e chiudono dei 
contatti, a seconda che venga o meno 
inviata corrente al loro elettromagnete. 
In questo modo la tensione presente ai 
contatti resta completamente isolata 
dal resto del circuito. Questa condizione 
è molto importante, poiché così potre- 
mo pilotare apparecchi che funzionano 
anche a 220 volt, senza far correre ri- 
schi all’interfaccia ed al computer. 

Il circuito di pilotaggio dei relay si basa 
su di un transistor. Le linee provenienti 
dal 74LS273 o 374, infatti, non hanno 
potenza sufficiente a pilotare l’elettro- 
magnete di un relay, ma possono invece 
pilotare perfettamente la base di un 
transistor, che possiede la potenza ne- 
cessaria all’azionamento del relay. 

E un po’ come per l’acceleratore di 
un’automobile: pur non avendo la forza 
necessaria a spingere una vettura, ne 
abbiamo quanta basta ad azionare il suo 
acceleratore, che ne piloterà il motore. 
Nel nostro caso l’acceleratore è il circui- 


to base-emettitore del transistor; una 
debole corrente che circoli in esso ne 
piloterà una ben più forte attraverso il 
circuito collettore-emettitore, che costi- 
tuisce il “motore” per muovere il relay. 
Le resistenze servono a mantenere la 
corrente di pilotaggio entro i limiti con- 
sentiti per le linee di uscita. 

Un discorso a parte meritano invece i 
diodi, che vedete nello schema posti a 
cavallo dei contatti degli elettromagne- 
ti. Questi piccoli componenti elettronici, 
che hanno la proprietà di far passare la 
corrente solo in un senso, sono orientati 
in modo da non condurre in condizioni 
normali, ma di mettere in cortocircuito 
gli elettromagneti per quanto riguarda 
le correnti inverse. Queste si manifesta- 
no nel momento in cui viene tolta l’ali- 
mentazione al relay e potrebbero dan- 
neggiare i transistor. 

Per quanto riguarda il collegamento con 
gli eventuali morsetti di uscita sono pos- 
sibili due diverse soluzioni. I contatti so- 
no infatti tre, uno corrispondente alla 
parte mobile del relay, gli altri a quelle 
fisse. Chiamando M il primo, ed 1 e 2 
i secondi, avremo in contatto M ed 1 
quando il relay non è eccitato (cioè non 
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fig* 6 - diodo; schema elettroni- 
co e forma fisica 
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alimentato), mentre M e 2 saranno col- 
legati quando esso è sotto tensione. Nel 
prototipo che vedete nelle foto sono sta- 
ti utilizzati i contatti chiusi sotto tensio- 
ne, in modo che ad un 1 logico sulla 
linea relativa corrisponda la chiusura 
del contatto. 

In pratica, per il montaggio è stata usa- 
ta la solita basetta forata, delle medesi- 
me dimensioni (circa 5x7 cm) di quella 
utilizzata la scorsa volta. Il collegamen- 
to con le linee di uscita è stato effettua- 
to con il solito sistema, per mezzo di un 
cavo piatto a otto conduttori, più un 
cavo bipolare per l’alimentazione, il tut- 
to facente capo ad una presa multipola- 
re, che va ad inserirsi in una spina fissa- 
ta sulla basetta. Questo sistema per- 
mette, come abbiamo detto, maggiore 
flessibilità d’uso rispetto alla saldatura 
diretta; sarà infatti possibile, in futuro, 
il collegamento di congegni diversi sen- 
za dover ricorrere a dissaldature. 

Fate attenzione al collegamento di tran- 
sistor e diodi. Il loro corretto orienta- 
mento è indicato nelle figure. Ricordare 
comunque che per i diodi l’estremo con- 
trassegnato da una banda nera è il ne- 
gativo; per i transistor, invece, guardan- 
done la faccia piatta avremo a destra 
la base, al centro il collettore ed a sini- 
stra l’emettitore. 

Come vedete, i relay sono quattro; ci è 
sembrato un buon compromesso fra 
spesa (davvero troppo elevata per otto 
relay) ed utilizzo. Quelli scelti per il pro- 
totipo sono del tipo più piccolo reperibi- 
le in commercio e sopportano un carico 
massimo di 1 A. Nel caso prevediate 
carichi maggiori potete benissimo mon- 
tarne di più grossi, tenendo presente 
però che dovranno funzionare a 5 volt. 
Eventualmente può essere presa in con- 
siderazione l’ipotesi di pilotare con un 
relay un altro relay molto più grosso e 
funzionante a tensione maggiore. Non 
esiste una regola precisa per quanto ri- 
guarda la disposizione dei contatti di un 
relay; lo schema di montaggio riporta 
la disposizione presente sui relay utiliz- 
zati, che è anche la più comune. Con- 
trollatela in ogni caso prima di montarli, 
eventualmente togliendo il cappuccio 
protettivo. 



piastra di pilotaggio relay 


CONTATTI FISSI 



CONTATTO 
HO B ILE 



fig. 7 - relay; struttura schematica e funzionamento 



OUT 2 OUT 2 


OUT 4 OUT fi 


fig. 9 - piano di montaggio della piastra relay 
lista dei componenti: 

RL1-RL4 relay 5 volt 56 ohm, tipo subminiatura da circuito stam- 
pato 

TR1-TR4 transistor 2N 3704 
R1-R4 resistenza 560 ohm 1/4 W 
D1-D4 diodo IN 4148 


Prima di passare alle applicazioni vedia- 
mo brevemente come collaudare il con- 
gegno. 

Una volta terminato il montaggio pos- 
siamo tranquillamente collegare il no- 
stro apparecchio all’interfaccia, cui 
avrete collegato il monitor a LED già 
descritto. 

Dopo aver dato tensione secondo lo 
schema solito (prima l’interfaccia, poi lo 
Spectrum) date 

OUT 223,0 

per azzerare l’uscita. Servendovi di un 


tester o, in sua mancanza, di lampadina 
e pila, controllate che per tutti e quattro 
i morsetti vi sia contatto aperto (o chiu- 
so, se avete preferito la soluzione oppo- 
sta). Quindi scrivete il programma: 

10 FOR i=0 TO 3 
20 OUT 223,2 i 
30 PAUSE 0 
40 NEXT i 
50 OUT 223,0 

e controllate che, a turno, uno dei relay 
sia eccitato e quindi i contatti relativi 
chiusi (o aperti). Dopo ciascun controllo 
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premete un tasto per passare al succes- 
sivo. 

Vediamo adesso qualche applicazione 
pratica. 

La prima, più semplice e di utilità più 
immediata, è il controllo del registrato- 
le. Tutti i registratori portatili possiedo- 
no la presa “remote”, per controllarne 
il funzionamento a distanza. Quando in 
questa presa è inserito il relativo spinot- 
to il registratore funziona solo se i due 
contatti di questo sono in collegamen- 
to. 

È sufficiente perciò procurarsi uno spi- 
notto jack tipo subminiatura e collegar- 
ne i contatti a due conduttori, che termi- 
neranno in uno dei morsetti dei relay. 
Il computer avrà così acquisito la capa- 
cità di far partire il registratore con 

OUT 223,1 

\ \ 

(nel caso venga usato il morsetto corri- 
spondente alla linea 0) e di fermarlo con 

OUT 223,0 

inseriti opportunamente nei program- 
mi, a precedere o seguire le istruzioni 
LOAD e SAVE. 

Ovviamente, non è possibile commuta- 
re automaticamente da RECORD a 
PLAY, ma non si può avere proprio tut- 
to... 

Il passo successivo è l’accensione o spe- 
gnimento del televisore, con lo stesso 
metodo. Stavolta, però, occorrerà inter- 
rompere uno dei due fili di alimentazio- 
ne e collegarne le due estremità ad un 
morsetto. Per non compiere interventi 
drastici sul televisore è consigliabile co- 
struirsi l’aggeggio che vedete in figura, 
composto da una presa volante collega- 
ta ad una spina tramite uno spezzone 
di cavo, di cui un conduttore è continuo, 


mentre l’altro è interrotto e passa attra- 
verso il morsetto. 

Altre applicazioni possono riguardare il 
pilotaggio di ingranditori per uso foto- 
grafico, motori, sirene e chi più ne ha 
più ne metta. 

Rimandando ad una prossima puntata 
la presentazione di un programma com- 
pleto per la creazione di un sistema di 
controllo, concludiamo considerando le 
limitazioni che ancora affliggono il no- 
stro apparato. 

Le informazioni che lo Spectrum riceve 
dall’esterno hanno una precisione per 
ora limitata ad un unico bit. Ciò che 
possono comunicare, in altre parole, si 
limita a “si” o “no”. In questa situazione 


avremmo bisogno, ad esempio per tene- 
re sotto controllo la temperatura di un 
ambiente, di un termostato esterno, che 
altro non è se non un congegno che 
trasforma un’informazione analogica 
(cioè variabile in modo continuo) in una 
di tipo digitale ad un solo bit. 

Non sarebbe meglio avere a disposizio- 
ne qualcosa in grado di effettuare lo 
stesso tipo di conversione, ma con una 
maggior precisione, in modo da far 
giungere al computer non semplicemen- 
te un sì od un no, ma un valore numeri- 
co che rappresenti, con una approssi- 
mazione più o meno piccola, il valore 
analogico letto? Sarà questo il prossimo 
argomento di cui ci occuperemo. A pre- 
sto! 



La rivista dei - 
sistemi MS-DOS 

La guida completa 
del personal 
computer IBM 
e compatibili 
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L O A 



Un esilarante gioco di società 
che saprà garantirvi ore di diver- 
timento e di risate 


U n punto di forza di una macchina 
come lo Spectrum è la notevole 
produzione di software, che abbraccia 
numerosi campi di applicazione, primo 
tra tutti quello dell’home entertain- 
ment. Nonostante ciò, è rimarchevole 
la mancanza di giochi di società per que- 
sto computer; per intenderci, giochi co- 
me “Melopoli”, “Signori della Galassia” 
o “Santa Paravia & Fiumaccio”, per ci- 
tarne solo alcuni, disponibili per Apple 
II. 

Alcool, questo è il nome del gioco che 
intendiamo presentare, è nato appunto 
dall’invidia per quel computer e dal de- 
siderio di disporre di un divertente pas- 
satempo per le serate in casa con gli 
amici. E per mezzo di Alcool che i gioca- 
tori, da due a sei, potranno passare un 
paio d’ore in colossali bevute elettroni- 
che, con lo scopo dichiarato di procu- 
rarsi la più grande sbronza informatica 
della storia. 

Lo scenario del gioco è una città del 
futuro, per l’esattezza del periodo deno- 
minato “Secondo Proibizionismo”, do- 
ve, grazie all’enorme sviluppo tecnolo- 
gico, a lavorare non sono più gli uomini 
bensì i robot e dove, a causa della larga 
disponibilità di tempo libero, l’alcolismo 
ha assunto proporzioni spaventose. 
Proprio per quest’ultima ragione la mu- 
nicipalità della cittadina ha istituito se- 
vere misure di polizia, che vietano il 
possesso di alcolici e limitano quello dei 
robot, ripristinando l’ordine nelle stra- 
de. 

Sarà un gruppo di irriducibili buontem- 
poni a riportare la vita nelle città, deci- 
dendo di passare una serata di sbornie 
colossali come ai vecchi tempi! 

A questo punto ha inizio il gioco e i 
giocatori si trovano distribuiti casual- 
mente nella città con poche lire in tasca 
e accompagnati dal massimo numero 
legale di robot (5000 lire e 4 robot). 

La sfida tra i giocatori consiste nel riu- 
scire, per primi, a raggiungere un livello 
di ubriachezza compreso tra il 100 e il 


110 %, sfuggendo ai controlli della poli- 
zia, agli agguati degli altri giocatori e 
stando attenti a non superare il livello 
del 110%. Al disopra di questo valore 
si è infatti troppo ubriachi per meritare 
la vittoria e sì è costretti ad aspettare 
inattivi che la sbronza passi almeno un 
po’. 

Non sarebbe necessario dire che tutto 
l’occorrente per potersi fare l’agognato 
cicchetto, cioè gli alcolici, i bicchieri e i 
cavatappi, si dovrà pagare profumata- 
mente con il frutto del lavoro dei robot 
mandati a lavorare. Questi potranno es- 
sere acquistati presso i negozi chiamati 
Robotterie e portati a lavorare nei “po- 
sti di lavoro” ad essi riservati, ai quali 


in pratica vengono ceduti (fino a che 
guasto non li distrugga) in cambio di un 
compenso in denaro ogni giro. 

Per rendere veloce il ritmo del gioco, 
nella fase di movimento, come verrà 
spiegato meglio più avanti, viene rileva- 
to il tempo impiegato dal giocatore, in 
base al quale sono calcolate alcune pe- 
nalità. 

Lo schermo 

Per la maggior parte del tempo di gioco 
lo schermo si presenta diviso in tre par- 
ti, come si può vedere in figura 1; la 
mappa della città e le “finestre” 1 e 2. 
La mappa (chiaramente illegale, in 
quanto riporta la disposizione di locali 
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Il Jocksoniano ha 9 Basic 

Video Basic, corso su cassetta per parlare subito 


Oggi è davvero tacile imparare il Basic, con 
Video Basic il corso su cassetta che ti permette 
di programmare subito il tuo computer. E facile: 
tu chiedi, lui risponde, tu impari. 

Passo dopo passo. Sul tuo schermo 
appaiono le domande, le risposte, gli esercizi 


e tu, senza fatica, presto e bene, impari 
a dialogare col tuo computer, sia un VIC 20, 
un Commodore 64 o un Sinclair 
Video Basic è in edicola. Provalo subito. 

Oggi il Basic si impara così. 





col tuo computer. 


GRUPPO 


In omaggio 
una fantastica cassetta giochi 


GRUPPO ETHOS 



VIDEO BASIC 
abbonarsi conviene 


(5 splendidi raccoglitori 
insieme al. corso completo) 




ri UIDEO 


Video Basic io trovi in 
edicola a lire 8.000 il 
fascicolo con cassetta e 
manuale. Ma abbonarsi 
conviene; con 1 65.000 
lire avrai infatti il corso 
completo, a casa tua, e 5 splendidi 
(e pratici) raccoglitori del valore 
di 40.000 lire. 

NON PERDERE L'OCCASIONE! 


fT vìczoJ 


// * 
ff/l 




16K/48K/PLUS 


Desidero abbonarmi a Video Basic 

□ Per il computer Commodore VIC 20 

□ Per il computer Commodore 64 

□ Per il computer Sinclair Spectrum 



Spedire a: 
JACKSON 
Via Rosellini, 12 
20124 Milano 


Allego lire 165.000 con assegno n° della Banca . o allego fotocopia della ricevuta di 

versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO, che mi dà diritto di ricevere a casa 
mia il corso completo e 5 raccoglitori. 


Nome 


Cognome 



Via 



N 


CAP 

Città 

e 


Provincia 



proibiti quali le bottiglierie) indica, oltre 
alla struttura della città e la disposizione 
dei servizi e dei locali utili, anche la posi- 
zione dei giocatori e delle ronde di poli- 
zia eventualmente presenti. Gli spazi 
transitabili (le strade) sono indicati in 
rosso, mentre quelli non transitabili (i 
palazzi) in nero: è nei palazzi che sono 
disposti i diversi servizi e locali, mentre 
i giardini (in verde) hanno regole di tran- 
sitabilità diverse (vedi più avanti). 

Nella “finestra” 1 compaiono i dati ri- 
guardanti la situazione del giocatore in 
turno, il segnalino che lo identifica sulla 
mappa e ovviamente il nome. Nell’ordi- 
ne compaiono: la disponibilità finanzia- 
ria, la quantità di birra, vino e whisky 
possedute (in litri), il numero di robot 
non lavoranti che lo seguono, la mobili- 
tà (ovvero il numero di mosse per tur- 
no), le quantità di cavatappi e di bicchie- 
ri di cui dispone e il grado percentuale 
di ubriachezza. Quest’ultimo valore è 
indicato sia numericamente che grafica- 
mente per mezzo di una linea orizzonta- 
le, di colore verde per valori inferiori al 
100 % e rossa per valori superiori. 

La seconda “finestra” viene di volta in 
volta utilizzata per le comunicazioni del 
computer, per “illustrare” le situazioni 
in cui il giocatore può venirsi a trovare 
e per l’input dei dati. 

Al completamento di ogni giro questa 
“videata” viene sostituita da uno scher- 
mo, che riporta la situazione di tutti i 
giocatori per mezzo degli stessi parame- 
tri visti prima. Oltre alle tabelle numeri- 
che, viene fornita una rappresentazione 
a istogrammi per i seguenti dati: soldi, 
birra, vino, whisky e ubriachezza. 

Schema del gioco 

Ad ogni giro i giocatori si alternano alle 
mosse, secondo un ordine casuale stabi- 
lito dal computer. Una volta chiamato 
a giocare il giocatore può muoversi per 
la città e entrare nei vari locali disposti 
sulla mappa. Nella fase di movimento 
egli ha a disposizione i seguenti coman- 
di, indicati nella linea in basso: 

- tasti per il movimento (Nord, Sud, 
Est, Ovest; si usano le iniziali); sono indi- 
cati solo se si hanno ancora mosse a di- 
sposizione. 

- Help: fornisce una lista di comandi 
ausiliari, per lo più informativi, e per- 
mette di fermare lo scorrere del tempo. 

- Fine: passa il gioco al giocatore se- 
guente; è sempre disponibile, tranne 
che all’uscita da una stazione del metrò, 
dove non ci si può fermare. 

- Rissa: questo comando è disponibile 
solo quando si transita su di una casella 
già occupata da uno o più giocatori, e 
permette di scatenare una rissa. 

I comandi vanno forniti premendo il ta- 
sto corrispondente all’iniziale. 

Sempre nell’ultima linea viene indicato 
il numero di mosse rimanenti. 

II movimento è possibile, con la sola 
limitazione di non passare sulle caselle 
occupate dalle ronde di polizia e sulle 
caselle rosse (strade): sulle caselle verdi 
(giardini) il transito è consentito, ma im- 


pone il passaggio del turno al giocatore 
seguente: è come se ad ogni transito su 
di un giardino si premesse il tasto “F” 
(Fine). Non è invece mai possibile transi- 
tare sulle caselle nere (palazzi) e pertan- 
to non è possibile entrare in un locale 
e uscire dalla parte opposta: in pratica 
si accede a un locale dando un comando 
di direzione come per andare sulla ca- 
sella da esso occupata, mentre il segna- 
lino rimane sulla strada. Entrare in un 
locale comporta il consumo di una mos- 
sa per ogni ingresso: in ogni turno di 
gioco è possibile entrare nei diversi lo- 
cali senza altra limitazione che il nume- 
ro delle mosse. 

Durante la fase di movimento (e quindi 
non quando si è nei locali) il computer 
rileva il tempo impiegato dal giocatore, 
che quindi deve prendere le sue decisio- 
ni piuttosto in fretta; in caso di indecisio- 
ne sarà conveniente richiedere l’Help 
per fermare il contatempo. 

Descrizione dei comandi richiamabili 
dall’Help: 

1) L’erba del vicino...: richiama la tabel- 
la riassuntiva della situazione di tutti i 
giocatori, quella che compare alla fine 
del giro; utile ad esempio per valutare 
la convenienza di una rissa. 

2) Opportunità per i giovani: mette in 
risalto sulla mappa i posti di lavoro non 
occupati (facendoli lampeggiare) e for- 
nisce la lista delle caratteristiche di tutti 
i posti di lavoro: in ordine da sinistra a 
destra compaiono il nome del comples- 
so, il nome del lavorante (se occupato), 
il numero di robot impiegati e lo stipen- 
dio per robot di quel posto di lavoro. 

3) Sussidio di sopravvivenza: per aver- 
ne diritto bisogna essere poveri (meno 
di 1250 lire), non possedere robot al 
seguito e non essere troppo ubriachi 
(meno del 15%). 

4) Aggiornamenti economici: fornisce la 
situazione attuale dei mercati dei robot 
e degli alcolici, indicando la disponibilità 
della merce e i prezzi unitari. Risulta 
utile per pianificare gli acquisti, evitan- 
do di muoversi verso un negozio e sco- 
prire poi di non avere soldi a sufficienza 
o che non vi sono più scorte. E da nota- 
re che tutte le bottiglierie hanno gli stes- 
si prezzi, come pure le robotterie. 

5) Uscita dal gioco di un giocatore: per- 
mette l’abbandono del gioco a un gioca- 
tore per volta, e quindi anche il gioco, 
in allenamento, a un giocatore solo. 
Come si è detto, durante l’Help viene 
bloccato il conteggio del tempo, ma ad 
ogni funzione di Help corrisponde Lag- 
giunta di un numero fisso di secondi di 
penalità. Le funzioni vengono richieste 
con la pressione del tasto numerico cor- 
rispondente e il ritorno all’Help si ottie- 
ne, per le funzioni che visualizzano dei 
dati sullo schermo (1,2 e 4), con la pres- 
sione di un tasto qualsiasi. Si ritorna alla 
fase di movimento premendo il tasto 0 
(zero). 

Rissa 

Quando un giocatore transita su di una 
casella già occupata da altri giocatori 


ha la possibilità di ingaggiare una rissa, 
alla conclusione della quale il vincitore 
sottrarrà al perdente tutti gli alcolici di 
cui questo è in possesso; nel caso che 
il perdente sia sprovvisto di alcolici gli 
verranno sottratti i soldi. 

Il meccanismo di scelta dell’avversario 
è sostanzialmente lo stesso adottato in 
altre parti del programma in caso di 
scelta tra diverse alternative: nella par- 
te bassa dello schermo viene presentato 
il nome di uno dei possibili avversari (o 
di una delle scelte effettuabili) confer- 
mabile per mezzo della pressione del 
tasto SPACE; nel caso si desideri fare 
la rissa con uno degli altri occupanti 
della casella, per mezzo del tasto EN- 
TER si cambia ciclicamente (esauriti i 
giocatori viene ripresentato il primo no- 
me) il nome del contendente (o, in gene- 
rale, delle alternative). 

Naturalmente, nella rissa a fronteggiar- 
si non sono le persone, ma i robot, ognu- 
no dei quali gode di 8 punti-forza nel 
caso sia dell’attaccante e di 9 nel caso 
sia del difensore; inoltre il difensore 
stesso ha un numero di punti-forza va- 
riabile a seconda del suo stato di ubria- 
chezza (da -14 a +6). L’attaccante di- 
spone quindi di meno forza per il robot 
(sarà forse l’affanno della corsa?!), ma 
ha il privilegio di colpire per primo sfrut- 
tando il fattore sorpresa. 

Per mezzo della rissa è possibile impedi- 
re che un giocatore già molto ubriaco 
arrivi facilmente alla vittoria o, meglio 
ancora, procurarsi i beveraggi senza 
troppa fatica. Attenzione, però, a non 
rimanere poi troppo indifesi, perché tra 
i due litiganti potrebbe essere il terzo a 
godere! 

Durante la rissa il conteggio del tempo 
viene bloccato, per essere poi subito 
riattivato al termine quando si viene 
reimmessi nella fase di movimento. La 
rissa comporta inoltre l’uso di una mos- 
sa e pertanto non la si potrà scatenare, 
se sono esaurite le mosse disponibili. 
Sullo schermo, durante la rissa, verran- 
no indicati i nomi dei due contendenti 
e le rispettive forze, rappresentate que- 
ste graficamente per mezzo di due sbar- 
rette orizzontali. Un asterisco a fianco 
di uno dei due nomi indicherà di volta 
in volta quale sia il giocatore che sta 
sferrando i suoi colpi; corrispondente- 
mente, per ogni colpo andato a segno 
si accorcerà la sbarretta dell’avversa- 
rio. Ad ogni colpo è associata remissio- 
ne di un suono e, nel caso di colpo riu- 
scito, di uno scintillamento del border. 

Fine 

Questo comando è sempre disponibile 
e, a meno che un giocatore non termini 
il turno entrando in un giardino, dovrà 
essere dato; naturalmente, potrà essere 
utilizzato anche prima di avere compiu- 
to tutte le mosse disponibili. In seguito 
alla pressione di questo tasto il compu- 
ter passa alla valutazione della situazio- 
ne del giocatore: sullo schermo, nella 
zona dei messaggi, compaiono il tempo 
impiegato per il movimento, il valore 
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delle tasse imposte sul patrimonio, le 
spese varie e il valore di cui è scesa la 
sbronza. Mentre la tassa patrimoniale 
viene calcolata solamente in base alla 
quantità di denaro posseduto alla fine 
del giro (prima cioè del conto degli sti- 
pendi), svariate altre penalità dipendo- 
no dal tempo impiegato nel movimento; 
queste sono ad esempio le altre due 
voci indicate durante la valutazione (an- 
che le spese varie sono comunque cal- 
colate sui soldi posseduti prima dell’at- 
tribuzione degli stipendi). Inoltre, poi- 
ché fragili e ingombranti, anche i bic- 
chieri sono soggetti a un calo proporzio- 
nale al tempo impiegato, diminuendo in 
ogni caso di almeno un esemplare a gi- 
ro. 

Indipendente invece dal tempo impie- 
gato dal giocatore è la frequenza con 
cui i robot posseduti potranno manife- 
stare i loro difetti di fabbricazione, fre- 
quenza che comunque è molto bassa. 
Nel caso che uno o più robot saltino, e 
questo potrà accadere in ogni caso solo 
alla fine del turno durante la valutazio- 
ne, ciò sarà manifestato dal tipico 
“pocc” delle lampadine che esplodono 
e da uno scintillamento del border dello 
schermo. 

Terminata la valutazione e il calcolo 
delle perdite tutti i nuovi valori assunti 
dai parametri del giocatore sono visua- 
lizzati nella “finestra” 1, per venire 
mantenuti nel tempo impiegato dal 
computer per muovere le ronde di poli- 
zia ed eseguire eventuali perquisizioni 
ed arresti. 


1100 - 1140 

Commento 

REMARKS 

Linee 

10 -30 

35 - 95 

200 - 375 


400 - 485 


500 - 545 


600 - 695 


Descrizione dei locali 

Si è visto precedentemente che sulla 
mappa (e in particolare nei palazzi; co- 
lore del fondo nero) possono essere po- 
sizionati vari locali. Questi sono: 
Metropolitane (M) 

Bottiglierie (B) 

Drugstore (D) 

Robotterie (R) 

Osterie (O) 

Giardini (quadrati verdi) 

Posti di lavoro (lettere minuscole pro- 
gressive da a a z). 

Entrando in uno qualsiasi di questi locali 
il conteggio del tempo viene sospeso, 
per permettere di eseguire con calma 
le operazioni ad esso inerenti, e viene 
aggiunto ogni volta un tempo fisso, di- 
pendente dal locale. Le caratteristiche 
dei diversi tipi di locali sono le seguenti: 

METROPOLITANE 
La loro funzione è quella di permettere 
rapidi spostamenti da una parte all’al- 
tra della città, per mezzo di tre stazioni. 
Non vi sono limitazioni al suo uso, a 
parte quella di disporre dei soldi per 
pagare la corsa: questa costa 500 lire 
per la persona più altre 500 lire per 
ogni robot trasportato; i robot contati 
sono ovviamente quelli al seguito del 
giocatore che compaiono indicati nel ri- 
quadro della situazione personale (“fi- 
nestra” 1; vedi fig. 1); non si contano 
quelli al lavoro. 


800 - 810 

815 - 840 


840 - 930 


1000 - 1040 


drugstore: gestisce gli acquisti di bicchieri e cavatappi, 
definizione delle funzioni di tabulazione dei dati, degli in- 
dirizzi delle routine in L/M e degli attributi grafici. 
gioco : ciclo principale che controlla l’alternarsi dei gioca- 
tori e le chiamate alle principali routine. 
muove : gestione del movimento e controlli di correttezza: 
i comandi vengono letti alla locazione 23560, contenente 
il codice dell’ultimo tasto premuto. Fino alla linea 250 
vengono verificate le possibilità del giocatore e preparata 
la linea del messaggio: dalla 270 alla 300 viene conside- 
rato il movimento e fino alla 345 sono considerati gli in- 
gressi nei locali. 

rissa : la prima parte permette di scegliere l’avversario; la 
linea 435 contiene la formula per il calcolo della forza 
dell’attaccante (in D(l)) e del difensore (in D(2)): D (3) 
memorizza il numero che individua il difensore. Le linee 
460-465 gestiscono la ripetizione dei colpi nel calcolo di 
quelli andati a segno, nella grafica e nel suono; il giocato- 
re che colpisce è individuato dalla variabile K, che vale 0 
per l’attaccante e 1 se in quel momento sta colpendo il 
difensore. Dalla 470 in poi vengono calcolati gli esiti dello 
scontro e in particolare il numero di robot rimasti al vin- 
cente (prima formula della 470). 

metrò: la routine gestisce tre stazioni le cui coordinate so- 
no contenute in T (3,2); questa matrice viene letta all’ini- 
zio insieme alla mappa (vedi linea 8085): affinché le sta- 
zioni vengano individuate correttamente è indispensabile 
che siano caratterizzate da 3 diversi valori della prima 
coordinata, quella orizzontale; T (1,1) ^ T (2,1) ^ T (3,1). 
lavoro: si divide in “rissa-lavoro”, che viene attivata se il 
Pdl è già occupato, e in “assunzione”, dove vengono 
semplicemente registrati i robot che dovranno lavorare. 
osteria: prima di rinviare alla routine di bevuta la variabi- 
le “CG” viene posta a 1, per indicare che si beve in una 
osteria. Vengono inoltre puntati i DATA contenenti le 
frasi per la bevuta. 

giardini: se si desidera bere, la variabile “CG” viene po- 
sta a 2, per indicare che si beve in un giardino. Anche in 
questo caso vengono puntate le frasi della bevuta: se si 
desidera introdurre un altro gruppo di frasi, cambiare il 
valore dell’istruzione RESTORE e farlo puntare al nuovo 
set che si sarà inserito; è indifferente cambiare le frasi 
per le osterie o per i giardini. 

bevuta: gestisce la bevuta, permettendo di scegliere il ti- 
po di alcolico e la quantità. Propone inoltre una frase 
contenente consigli su cosa usare: in linea 855 viene letta 
una delle sette frasi dei DATA puntati precedentemente; 
assieme alla frase vengono letti tre valori, che verranno 
utilizzati in seguito per calcolare la resa della bevuta; 
questi tre valori sono associati nell’ordine al whisky, al vi- 
no e alla birra. Più il valore assoluto sarà piccolo e più la 
bevuta si discosterà dai valori standard, aumentando il 
suo effetto per valori positivi e diminuendolo per quelli 
negativi. Questi valori sono utilizzati in combinazione con 
la funzione RND nel seguente modo: la variazione dall’ef- 
fetto standard è data da RND/n, dove n è il numero let- 
to; si vede che per n=10 la variazione potrà arrivare al 
massimo, per il valore massimo della RND cioè 1, al 
10%; per n=20 si potrà arrivare al 5% e per n=-20 al -5%. 
Nelle linee 900-910 vengono calcolati in modo assoluto 
gli effetti per i tre tipi di bevute; nella linea 915 vengono 
poi aggiunti diversi effetti casuali, tra i quali quello, spie- 
gato sopra, dei consigli contenuti nelle frasi: gli altri effet- 
ti casuali sono dati dalla qualità della bevanda (da +20% 
a -20%) e dal luogo dove viene consumata (fino al 30% 
in più nelle osterie). Ovviamente è possibile ed anzi consi- 
gliabile, personalizzare le frasi ed eventualmente anche i 
valori associati (linee da 4500). 

robotterie: controlla gli acquisti dei robot, aggiornando la 
variabile relativa alla gestione del mercato, M(5), che 
contiene il totale degli acquisti del giro. 
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Anche in questa situazione, per sceglie- 
re la stazione di arrivo viene adoperato 
il tasto ENTER per cambiare l’alternati- 
va presentata e il tasto SFACE per con- 
fermare quella scelta. 

BOTTIGLIERIE 

Nelle bottiglierie è possibile acquistare, 
ad ogni ingresso, uno solo dei tre diversi 
tipi di alcolici disponibili: birra, vino e 
whisky. Sia i prezzi che le disponibilità 
di queste bevande vengono ad ogni giro 
ricalcolati dal computer in funzione del- 
la domanda e dell’offerta (con un mec- 
canismo che verrà meglio spiegato nei 
commenti al listato). Ovviamente, men- 
tre durante tutto un giro i prezzi restano 
fissi, le disponibilità sono soggette a ca- 
lare in seguito agli acquisti fatti dai gio- 
catori: anche per questa ragione l’ordi- 
ne di gioco è casuale. 

Seguendo le indicazioni che compaiono 
sullo schermo, e ricordando come av- 
vengono le scelte tra alternative (EN- 
TER/SPACE), si può procedere all’ac- 
quisto. E necessario ricordarsi che dei 
dati forniti viene considerato solo il pri- 
mo decimale: così, ad esempio, le ri- 
chieste di 2 o 3,8 litri vengono interpre- 
tate correttamente, mentre chiedendo 
2,37 litri il computer ne assegnerà 2,3. 
Per acquisti consistenti, superiori cioè 
ai 3 litri, di una qualsiasi delle bevande 
il computer pone la seguente alternati- 
va: 

- SPACE se OK, altrimenti un tasto. 
Premendo in risposta il tasto SPACE si 
termina l’acquisto e si esce dal negozio, 
mentre con la pressione di un altro tasto 
ci si dichiara insoddisfatti e si richiede 
un extra (pratica analoga a quella, or- 
mai in disuso, di chiedere lo sconto). Il 
valore di questo extra viene stabilito ca- 
sualmente dal computer e visualizzato 
sullo schermo e di nuovo si dovrà deci- 
dere se dichiararsi soddisfatti o insiste- 
re: chiaramente la quantità massima di 
extra ottenibile dipenderà dalla consi- 
stenza dell’acquisto e il venditore potrà 
mandare tutto a monte, cacciandovi 
fuori dal negozio senza una goccia d’al- 
cool con le parole “Più di così non pos- 
so”. In questo caso non vi resterà altro 
che rientrare e riprovare. Chiaramente, 
se la disponibilità è uguale alla quantità 
da voi richiesta, non avrà senso chiede- 
re un extra! 

DRUGSTORE 

Entrando in un drugstore è possibile ac- 
quistare gli elementi indispensabili per 
una bevuta, ossia i cavatappi e i bicchie- 
ri. La scelta tra le alternative avviene 
con il solito sistema ENTER/SPACE. 

E necessario ricordare che mentre i ca- 
vatappi diminuiscono al ritmo di uno 
per bevuta i bicchieri sono soggetti ad 
un calo più rapido, in quanto diminui- 
scono anche ad ogni giro in funzione del 
tempo impiegato. Essendo i drugstore 
negozi pienamente legali, i loro articoli 
hanno prezzi calmierati e pertanto non 
variabili nel gioco. 


1200 - 1295 


2000 - 2070 


2075 - 2096 
2100 - 2170 


3000 - 3070 


3100-3125 

3200 - 3270 
4000 - 4095 


4500 - 4535 


5010 - 5460 


5470 - 5500 


bottiglierie: gestisce la scelta dell’alcolico e della quantità 
e aggiorna le variabili del mercato degli alcolici, la matri- 
ce F. Dalla linea 1260 viene gestito V extra: per prima co- 
sa viene stabilito il massimo quantitativo a cui si può arri- 
vare (in SC), e che può arrivare al 50%, e viene azzerato 
l’extra (in MK); ogni volta che viene richiesto un extra si 
eseguono le linee da 1270, dove l’extra viene incremen- 
tato di una quantità che va da 0 a 0,9 litri. 
valutazione finale: gestisce la valutazione del giocatore al- 
la fine del suo turno di gioco; in particolare calcola: tassa 
patrimoniale, spese varie, stipendio totale, mobilità in 
funzione della sbronza, bicchieri residui, diminuzione dei 
tre tipi di sbronza e guasti dei robot trasportati. 
vittoria: procede alla proclamazione del vincitore. 
polizia: si divide in tre sottoblocchi: il primo considera se- 
paratamente le tre ronde e rimanda al secondo blocco 
per il movimento (se la ronda è già in giro o deve essere 
fatta uscire); il secondo, gestione ronda, provvede agli 
spostamenti delle ronde, ai controlli per i cambi di dire- 
zione, alle perquisizioni e arresti e a far rientrare le ron- 
de in azione da 10 mosse. Poiché in caso di arresto di un 
giocatore è richiesto il movimento del segnalino corri- 
spondente, e poiché le routine di grafica sono controllate 
dal valore di P che individua il giocatore in turno, è ne- 
cessario modificare questa variabile in caso di arresto; 
per questa ragione alla linea 75, in “gioco”, viene salvato 
il valore di P temporaneamente. 

Help tavole: questa routine viene chiamata dall’Help e da 
Situazione generale (alla fine del giro) per visualizzare la 
situazione di tutti i giocatori. La linea 3010 sposta la 
schermata precedente in un’area alta della memoria, dal- 
la quale viene richiamata con i comandi: 

POKE updown, 167: RESTORE USR cambio. 

Per le chiamate delle routine in L/M viene usata la istru- 
zione RESTORE piuttosto della RANDOMIZE, per non 
modificare la generazione di numeri casuali. 

Help lavori: viene chiamata per visualizzare i posti di lavo- 
ro liberi e per fornirne la lista delle caratteristiche. 
help: gestisce un menu di 5 voci. 

situazione generale: è l’ultima routine ad essere chiamata 
durante un giro e fornisce sul video la tabella riassuntiva 
di tutti i giocatori; inoltre calcola i nuovi dati per i negozi 
di robot e per le bottiglierie; per ultimo gestisce le rottu- 
re dei robot al lavoro. 

frasi bevuta: contengono i consigli su cosa bere: i numeri 
che le seguono fanno riferimento ai tre tipi di alcolici* nel- 
l’ordine whisky, vino e birra, ed esprimono la loro conve- 
nienza (vedi bevuta). 

Quelle che seguono (5010-6220) sono delle routine di 
uso comune per scopi particolari, come la stampa di un 
segnalino, la scrittura della situazione personale di un gio- 
catore, ecc. Si dividono in tre gruppi: 
routine per la gestione dello schermo: 
grafica pianta: disegna la mappa della città. 
lista lavori: produce la lista delle caratteristiche dei posti 
di lavoro. 

stampa segnalini: stampa o toglie dalla mappa tutti i se- 
gnalini. 

segnalino giocatore: stampa o cancella dalla mappa il se- 
gnalino del giocatore in turno, indicato dal valore di P. 
situazione personale: riporta sulla “finestra” 1 i dati relati- 
vi al giocatore in turno, come sempre quello indicato dal 
valore della variabile P. 
c/s 1: cancella la “finestra” 1 (vedi fig.l). 
c/s 2: cancella la “finestra” 2 (vedi fig.2). 
grafica lavori: stampa sulla mappa la disposizione dei po- 
sti di lavoro, facendo risaltare, se FL=1, quelli liberi, 
routine per la gestione del tempo: 
lettura tempo: legge le due locazioni 23672 e 23673, che 
riportano il conteggio del tempo in 1/50 di secondo e 
trasforma il risultato in secondi nella variabile H. 
scrittura tempo: esprime il tempo in cinquantesimi di se- 
condo e lo introduce nelle due locazioni sopra menzionate. 


SUPERSINC® 2/85 27 



Dalla grande 
edicola 
Jackson 

Tutto sull’hobby 
e Home cor 


COMPUTER 


In questo numero: 

MSX Basic: 2 ° 


puntata 
The Biz per 
Spectrum 
Insegnamo le 
frazioni al nostro 
computer 
Tutto sul 
portatile Olivetti 


STRUMENTI MUSICALI 


In questo numero: 

Gibson Flying "V" 

Pianoforti usati 
Pickup per basso elettrico 
Programmare il DX7 con lo Spectrum 
GLOSSARIO D'INFORMATICA 
MUSICALE - 5° fascicolo 


VIDEOGIOCHI In questo numero: 

Speciale due anni dopo: 
cosa ci riserva il 1 985? 
Tuttolucky 

Provati in anteprima: 
Ghostbusters e The Biz 



Strumenti Musicali/Video Giochi/Home Computer 

sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 




5600 - 6230 


ROBOTTERIE 

Sono i centri ove è possibile rifornirsi di 
robot e, come le bottiglierie, sono carat- 
terizzati da disponibilità e prezzo varia- 
bili ad ogni giro, in funzione della do- 
manda e dell’offerta. Inoltre, nonostan- 8000 - 8290 
te permettano ad un giocatore di avere 
più dei 4 robot a norma di legge, non 
acconsentono alla vendita, se in seguito 
a questa un giocatore viene ad averne 
più di 14; pertanto la richiesta di robot 
può venire respinta, oltre che per le 
ovvie cause di non disponibilità di robot 
o di mancanza dei soldi necessari, an- 
che in seguito al tentativo di superare 
il tetto dei 14 robot posseduti. Sia le 
bottiglierie che le robotterie fanno riferi- 
mento ad un unico mercato centrale: 
ciò significa che sia i prezzi che le dispo- 
nibilità sono le stesse in tutti i negozi e 
che gli acquisti fatti in uno di questi por- 
ta alla stessa diminuzione in tutti. I dati 
relativi ai mercati centrali, e quindi a 
tutti i negozi, sono richiamabili in qua- 
lunque momento per mezzo dell’Help, 
comando 4 (“aggiornamenti economi- 
ci”). 


OSTERIE & GIARDINI 

Per consumare gli alcolici precedente- 8300 - 8425 
mente acquistati (o “scippati” a un col- 
lega!) bisogna recarsi nelle osterie o nei 
giardini. 

Le differenze tra i due sono le seguenti: 
mentre nelle osterie ci si reca unicamen- 
te per bere e si paga un ingresso di 


routine per la gestione dei suoni: 

error : produce il segnale di errore, variando i parametri 
della routine in L/M che accompagna le bevute. 
rissa p: prepara i parametri della routine L/M delle bevute. 
rissa s: suona per mezzo della routine L/M preparata prima. 
arresto : modifica i parametri della routine L/M della poli- 
zia e produce il suono dell’arresto. 
sirena: modifica i parametri della routine L/M della poli- 
zia per riprodurre una sirena. 

guasto: agisce sulla routine L/M delle bevute per ripro- 
durre il rumore dello scoppio di una lampadina. 
bevuta: accompagna le bevute dei giocatori con un suono 
crescente di altezza proporzionale alla sbronza. 
preparazione del gioco: il programma deve essere salvato 
con l’opzione LINE 8000 o comunque mandato in esecu- 
zione con il RUN dalla linea 8000. Tra le altre cose viene 
letta dalle linee DATA la mappa da usarsi durante il gio- 
co: assieme alla mappa vengono letti i dati che la carat- 
terizzano (prima linea dei DATA), che nell’ordine indivi- 
duano: il numero di caselle che possono ospitare dei po- 
sti di lavoro; le coordinate, prima quella orizzontale e poi 
quella verticale, delle tre stazioni della metropolitana e le 
coordinate della prigione; l’angolo in alto a sinistra della 
mappa ha coordinata (1,1) e le coordinate aumentano 
verso destra e verso il basso. Rispettando questo formato 
è ovviamente possibile sostituire o aggiungere delle map- 
pe diverse da quelle fornite: nel caso si volesse disporre 
di molte mappe, risulterebbe però più comoda la memo- 
rizzazione su nastro, dimensionando con una riga in più la 
matrice stringa che contiene la mappa, P$, per registrare 
nella sua ultima riga in forma di caratteri (usando lo sta- 
tement LET P$ (16,x)=CHR$ dato per salvare su nastro 
e il suo inverso, LET dato=CODE P$ (16, x), per riottene- 
re i dati nel formato utilizzato nel programma) i dati che 
ora compaiono nella prima linea DATA di ogni mappa. 

La distribuzione dei posti di lavoro avviene alla linea 
8100 con un meccanismo che ne garantisce l’uniformità 
con qualunque numero ne sia stato scelto. 
mappe: i simboli che devono apparire sulle mappe sono 
gli stessi che vengono riconosciuti alle linee 305-335 di 
muove. Non è possibile cambiare i simboli sulla mappa 
senza cambiare le linee suddette: inoltre gli spazi transita- 
bili dovranno essere dei blank e i palazzi dei il nume- 
ro dei “.” è il numero che compare per primo tra i dati 
numerici della mappa. 
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5000 lire, nei giardini non è necessario 
bere e gli stessi possono essere utilizzati 
anche solo come transito; inoltre, grazie 
all’ambiente più confortevole realizzato 
per mezzo degli introiti, una bevuta in 
un’osteria rende maggiormente di una 
uguale consumata ai giardini e si ha la 
possibilità di rientrare più volte (compa- 
tibilmente con le mosse rimanenti). 

Il meccanismo della bevuta è lo stesso 
in entrambi i posti: requisiti indispensa- 
bili sono il possesso di almeno un cava- 
tappi, un bicchiere e un tipo di alcolico; 
ogni volta che un giocatore decide di 
bere il computer seleziona una lista dei 
tre alcolici in ordine decrescente di con- 
venienza: il primo citato rende più del 
“normale”, il secondo “normalmente” e 
il terzo, non sempre citato, meno anco- 
ra (può quindi capitare che un giocato- 
re, possedendo solo il tipo sconsigliato, 
debba fare una bevuta scarsa o riman- 
dare). 

La scelta dell’alcolico e della quantità 
procede esattamente come nella fase di 
acquisto (vedi bottiglierie); in seguito al- 
la scelta viene calcolato l’incremento 
della sbronza, accompagnato da un 
commento “audiovisivo”. Gli effetti so- 
no indicativamente i seguenti: 

- Birra: rende bene quando si è poco 
ubriachi, sotto il 40% circa, ma la sua 
sbronza cala più rapidamente delle al- 
tre. 

- Vino: rende meno della birra quando 
non si è ubriachi, ma la sua resa è buona 
sino a circa il 70%, e la sbronza cala 
meno rapidamente di quella data dalla 


Descrizione delle variabili (tab. 1) 

N 

numero dei giocatori 

$ (N.15) 

matrice della situazione dei giocatori; ogni riga rappresen- 
ta un giocatore e gli elementi rappresentano nell’ordine: 

1 soldi 2 whisky 3 vino 

4 birra 5 cavatappi 6 bicchieri 

7 non usato 8 sbronza whisky 9 sbronza vino 

10 sbronza birra 11 mobilità 12 robot 

13 coordinata x 14 coordinata y 15 sbronza totale 

NS (N.8) 

contiene il segnalino, il primo carattere di ogni riga e il 
nome di ogni giocatore 

L 

numero dei posti di lavoro 

L (L.5) 

contiene i dati relativi ai posti di lavoro; in ogni riga i dati 
del corrispondente Pdl sono ordinati come segue: 

1 coordinata X 2 coordinata Y 3 proprietario 

4 stipendio 5 robot occupati 

PS (15,19) 

è la pianta della città 

M<6) 

memorizza, per mezzo dei seguenti elementi, la situazione 
dei negozi di robot: 1 produzione 2 disponibilità 3 prezzo 

4 vendite giro prec 5 vendite giro attuale 6 differenza di 
vendite tra il giro precedente e quello ad esso precedente 

P (3,2) 

dei due elementi per ogni ronda il primo indica il passo che 
sta compiendo, se è già fuori, e il secondo la direzione in 
cui si muove (1 in alto, 2 a destra, 3 in basso e 4 a sinistra) 

R (3,2) 

per ogni ronda indica la posizione, prima la X e poi la Y 

T (3,2) 

per ogni stazione del metrò indica le coordinate, prima X 
poi Y 

F (3,6) 

per ogni alcolico contiene le stesse informazioni di M () 

P 

numero del giocatore in turno 

H 

viene usata per memorizzare il tempo 

FL e BR 

usate nelle comunicazioni con le routine di gestione del 
video per gli attributi FLASH e BRIGHT 

1 e J 

usate in più parti per i cicli FOR-NEXT 

C (2) 

posizione provvisoria del giocatore prima dei controlli per 
il movimento o in caso di nessun movimento (es. ingresso 
ai locali) 

RS 

flag indicante la disponibilità del comando di rissa; tiene 
conto della presenza sulla casella di altri giocatori e della 
disponibilità di mosse 

Z (N) 

vettore indicante i giocatori che si trovano sulla stessa 
casella del giocatore in turno; usato nella rissa 

MF 

flag indicante che il giocatore si trova in una stazione della 
metropolitana e che quindi non dispone del comando di fine 
e non può entrare in locali; usato in “muove” e “metrò” 

M 

contatore delle mosse 

AS 

in “muove” contiene il carattere della mappa alla posizione 
individuata da C() e viene usata per verificare la correttezza 
del movimento: altrove ha un uso generico. 
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birra. 

- Whisky: è l’unico che abbia una buo- 
na resa anche quando si è già molto 
ubriachi, ma richiede quantità rilevanti: 
meno di 5 litri praticamente non si sen- 
tono!!! La durata del suo effetto è la più 
alta. 

Il valore della sbronza, visualizzato nella 
situazione personale, è dato dalla som- 
ma dei tre valori, uno per ogni alcolico, 
elaborati separatamente dal compu- 
ter. 

POSTI DI LAVORO (Pdl) 

I posti di lavoro permettono al giocatore 
di assicurarsi un reddito ad ogni giro 
per mezzo del lavoro svolto dai suoi ro- 
bot. Entrando in un Pdl libero viene ri- 
chiesto il numero di robot che si deside- 
rano assegnare a quel lavoro al prezzo 
fissato. Ogni Pdl è caratterizzato da un 
diverso stipendio, proporzionale circa 
alla sua distanza dal centro geometrico 
della Città, che viene mostrato dalla 
funzione “opportunità per i giovani” 
dell’Help. 

Entrando in un Pdl precedentemente 
occupato dallo stesso giocatore si viene 
respinti, così come se si entra senza ro- 
bot al seguito; se invece il Pdl è occupa- 
to dai robot di un altro giocatore, si 
scatena automaticamente una rissa con 
le stesse caratteristiche delle risse da 
strada, salvo che ora il vantaggio del 
primo colpo spetta alla fazione attacca- 
ta, cioè agli occupanti del Pdl. Dopo la 
rissa, in caso di vittoria, vengono sbriga- 
te le pratiche di assunzione. 

È da notare che come i robot al seguito 
anche quelli al lavoro possono subire 
dei guasti; il loro scoppio si può avverti- 
re, quando ciò avviene, alla fine del gi- 
ro, quando sullo schermo compare la 
tabella riassuntiva di tutti i giocatori. E 
quindi buona norma investire subito in 
modo proficuo i soldi guadagnati, per 
non vedere i propri risparmi decurtati 
dalle tasse e dalle spese quando la mo- 
ria dei robot lavoranti riduce gli incassi. 

La Polizia 

Alla fine di ogni turno di un giocatore il 
computer può decidere di far scendere 
in campo una o più ronde della polizia, 
delle tre che possono agire contempora- 
neamente. Sempre alla fine dei turni dei 
giocatori il computer provvede a muo- 
vere le ronde già presenti, o a ritirarle 
se sono già state in giro 8 turni. Nei 
confronti della polizia valgono due rego- 
le: 1) un giocatore non può mai, muo- 
vendo, passare su di una casella occu- 
pata da una ronda, mentre se si viene 
a trovare sulla stessa casella in seguito 
ad una perquisizione, può chiaramente 
abbandonarla; 2) quando la polizia, du- 
rante un fine turno, viene a transitare 
su di una casella occupata da uno o più 
giocatori li perquisisce sistematicamen- 
te uno per uno: ogni giocatore che viene 
trovato in possesso di alcolici o di più 
di 4 robot viene automaticamente “ripu- 
lito” degli alcolici ed eventualmente di 
tutti i robot e trasferito in prigione (ca- 


sella “#”): ovviamente la prigione si 
trova in una zona della città povera di 
servizi. 

Preparazione del gioco 

Alcool si compone di due diversi pro- 
grammi: il primo provvede a caricare i 
codici di tre routine in linguaggio mac- 
china (2 per i suoni e una per lo sposta- 
mento della pagina dello schermo), i ca- 
ratteri grafici e a impostare il corretto 
valore della Ramptop: il secondo è il 
vero e proprio programma di gioco. Si 
dovrà fare attenzione a fermare il na- 
stro per il tempo impiegato dal primo 
programma a svolgere i suoi compiti. 
Alla fine del caricamento della seconda 
parte il computer richiede ai giocatori i 
dati per preparare il gioco: 
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fig. 1 - Suddivisione dello scher- 
mo 


- numero dei giocatori: da 2 a 6 

- nomi dei giocatori: ogni nome è pre- 
ceduto dal segnalino che verrà utilizzato 
sulla mappa durante il gioco 

- numero dei posti di lavoro che il com- 
puter deve disporre sulla mappa: tra 1 
e 26 (consigliati 3 per giocatore) 

- livello paga dei posti di lavoro: al li- 
vello 0 gli stipendi vanno dalla 800 alle 
1900, al livello 9 dalle 2300 alle 4000 
lire. Consigliato il livello 4 

- numero delle mosse dei giocatori per 
giro: per le mappe disponibili consiglia- 
te dalle 8 alle 10 

- numero della mappa: vi sono 2 map- 
pe, di cui la migliore è la 2. 

I tre dati intermedi determinano prati- 
camente il livello di difficoltà del gioco 
e sono comunque connessi con le carat- 
teristiche della mappa adottata (questa 
è facilmente modificabile dall’utente). 
Dopo una breve attesa viene mostrata 
la mappa con la distribuzione dei posti 
di lavoro; nel caso che quest’ultima non 
sia soddisfacente, rispondendo “n” alla 
domanda del computer ne viene pro- 
dotta un’altra. Terminati questi prelimi- 
nari si viene quindi proiettati nel vivo 
del gioco. 

Consigli di gioco 

II primo e più importante consiglio che 
possiamo fornire è quello di prestare 
attenzione al tempo, in particolare 
quando si ha già bevuto e si è un po’ 
ubriachi: infatti la discesa della sbronza 



fig. 2 - Struttura del programma: i riferimenti sono alla linea del pro- 
gramma e ai nomi riportati nei REMarks sono indicati solo le routine 
principali. 
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è più che proporzionale al tempo impie- 
gato; ad esempio, se con un tempo di 
15 secondi questa scende, poniamo, di 
6 punti, con un tempo di 30 secondi 
scenderà non di 12, ma, ad esempio, di 
18 punti. Poiché ad ogni ingresso in un 
locale il tempo viene incrementato di 
una quantità fissa, conviene in genere 
distribuire gli ingressi in più turni per 
non raggiungere tempi eccessivi: con- 
verrà quindi accettare di bere un tipo 
di alcolico non consigliato piuttosto che 
rientrare di nuovo nello stesso giro. Inol- 
tre converrà, quando nella fase di movi- 
mento si deve pensare cosa fare, ferma- 
re lo scorrere del tempo chiedendo 
l’Help. 

Un altro fattore a cui conviene prestare 
attenzione è la mobilità: questa dipende 
infatti dal grado di ubriachezza raggiun- 
to e tende a zero con il tendere della 
sbronza al 100%. Converrà pertanto 
per le ultime bevute disporre di suffi- 
cienti alcolici per non dover ritornare 
alle bottiglierie. 

L’ultima nota (lasciamo a voi il piacere 
di farvi una strategia personale) riguar- 

Alcool 

versione per ZX Spectrum 48K 

Listato 1 

10 BORDER 1: PAPER 1: INK 9: 
CLEAR 58303 

20 LET init=58304 : PRINT AT 10 
, 8 ; FLASH l;"Ferma il nastr 
o";AT 15, 8; "Premi un tasto 
" : PAUSE 0: GO SUB 0450 
30 REM sirena 

40 LET n=0 : LET s=0: RESTORE 0 
210: FOR i=init TO init+91 
50 READ c$ : GO SUB 0390: 

NEXT i 

60 IF s< >9826 THEN PRINT "E 
RRORE nei dati della sirena 
": STOP 

70 RANDOMIZE USR init: 

GO SUB 0490 
80 REM sbronza 

90 LET n=0 : LET s=0: RESTORE 0 
260: FOR i=init+92 TO init+ 
1 35 

100 READ c$ : GO SUB 0390: 

NEXT i 

110 IF s<>5!57 THEN PRINT "E 
RRORE nei dati della sbronz 
a": STOP 

120 RANDOMIZE USR (init+92): 

GO SUB 0510 
1 30 REM schermo 

140 LET n=0 : LET s=0: RESTORE 0 
290: FOR i=init+l 36 TO init 
+ 1 51 


no ad essere personalizzate, quali ad 
esempio la gestione delle mappe. Que- 
sti elementi dovrebbero comunque es- 
sere sufficienti per la comprensione e 
modifica del programma, in quanto ogni 
sezione dello stesso è debitamente con- 
trassegnata da linee REM, e tutte le 
chiamate a routine sono accompagnate, 
alla fine della linea in cui compaiono, 
da una REM contenente il nome della 
routine chiamata; inoltre si è cercato di 
evitare l’uso dei salti, GO TO, tra parti 
o routine differenti del programma. 
Poiché per risparmiare memoria si è so- 
stituita in quasi tutto il programma la 
costante più usata, la 1, con la variabile 
“C”, si dovrà fare attenzione a non usar- 
la come variabile, riassegnandola, nel 
corso del programma. 

Qualora dovesse accadere che per un 
errore nell’introduzione dei dati durante 
il gioco il computer dia il list, cancellan- 
do la schermata grafica, si dovranno da- 
re, per proseguire il gioco, i seguenti 
comandi in forma diretta: 

,INK 9: CLS: GO SUB 5010 
GO SUB 5440: GO TO 30 

150 READ c$ : GO SUB 0390: 

NEXT i 

160 IF sOl 41 9 THEN PRINT "E 
RRORE nei dati dello scherm 
o": STOP 

170 REM gli inizi di routines 

sono i seguenti; 

sirena INI 
T+0 sbronz 

a INIT+92 s 

chermo INIT+136 
180 REM car grafici 

190 RESTORE 310: FOR i=USR "a" 

TO USR "h"-l: READ c: 

POKE i , c : NEXT i 
200 INPUT PRINT #0;" "; 

FLASH l;"Fai partire il na 
stro": RANDOMIZE : PRINT 
AT 3,0;: LO AD " " 

210 REM data sirena 


220 

DATA "06 

If 

II 

/ 

02" 

,"c5 

II 

9 

II 

1 1 

II 

9 




"34", "01 

II 

II 

9 

21 " 

, "c4 

II 

9 

II 

03 

II 

9 

II 

c 


d". 

"b5 

tl 

II 

9 

03" 

/"Il 

II 

9 

II 

01 

II 

9 

II 

0 


0" ,"21" , 


II 

c4" 

,"03 

II 

9 

II 

06 

II 

9 

II 

2 


5" , " Oe" , 

II 

fe 

II 

9 

"c5 

II 

9 

II 

e5 

II 

9 

II 

d 


5", "ed". 

II 

69 

Il II 

f 

cd" 









230 

DATA "b5 

II 

ii 

f 

03" 

, "di 

II 

9 

II 

el 

II 

9 




"01 " ,"07 

II 

ii 

r 

00" 

,"a7 

II 

9 

II 

ed 

II 

9 

II 

4 


a". 

"cl 

II 

ii 

r 

1 0" 

, "ed 

II 

9 

II 

1 1 

II 

9 

II 

f 


4" ,"00" , 


ii 

21 " 

,"c7 

II 

9 

II 

04 

II 

9 

II 

c 


d","b5". 

11 

03 

II 

9 

"11 

II 

9 

II 

01 

II 

9 

II 

0 


0 " , " 2 1 ", 

II 

c7 

Il II 

9 

04" 









240 

DATA "06 

II 

II 

/ 

25" 

, " Oe 

II 

9 

II 

fe 

II 

9 




"c5","e5 

II 

II 

9 

d5" 

, "ed 

II 

9 

II 

69 

II 

9 

II 
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d". 

"b5 

II 

II 

9 

03" 

, "di 

II 

9 

II 

el 

II 

9 

II 

0 


da le mappe: le due disponibili, e in 
particolare la seconda (la preferita dal- 
l’autore), fanno ampiamente uso della 
possibilità di rientrare, uscendo da un 
margine, dal bordo opposto; in effetti 
la seconda mappa è un labirinto a spira- 
le con centro nell’angolo in alto a destra 
e periferia nel centro geometrico della 
mappa. 

Descrizione del programma 

Il primo dei due listati che compongono 
Alcool è praticamente uno dei soliti ca- 
ricatori per L/M: i codici nelle linee DA- 
TA sono inseriti in formato esadecimale 
e dopo il caricamento di ognuna delle 
due routine sonore questa viene attiva- 
ta a titolo dimostrativo e per verificarne 
il funzionamento. 

Per quanto riguarda il secondo listato 
forniamo l’elenco delle variabili (tab. 1), 
lo schema della struttura (tab. 2) e la 
descrizione, necessariamente per som- 
mi capi data la lunghezza del program- 
ma, dei blocchi di cui è composto: di 
seguito verranno trattate meno telegra- 
ficamente quelle parti che più si presta- 
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250 

260 

270 


280 


290 

300 


31 0 
320 
330 
340 
350 
360 
370 

380 

390 

400 


41 0 


420 

430 


1 " , " 0 7 " , "00" ,"37", "ed" ,"4 

2","cl ","1 0" , " ed " , " c 1 " , " 1 

0" , "bO" , " 1 1 " , "e6" 

DATA "00", "21 " , " c 4 " , " 0 3 " , 

" cd " , " b 5 " , " 0 3 " , " c 9 " 

REM data sbronza 

DATA " 3e " , " 0 3 " , " 0 6" , "de " , 

" f 5" , " Oe" , " f e " , " 1 1 " , " 01 " , " 0 
0", "21 " , " e 8 " , " 0 3 " , " ed " , " 6 

9" , " c 5 " , "06" , "le" , " 1 0" , "f 

e" , "e 5" , " d 5 " , "cd" , "b5" , "0 


3" , "di " , "el " , " 01 " 

DATA "01 " , " 00" , "a7" , "ed" , 
"42" , "cl " , "1 0" , "e9" , "fi " , " 3 
d", "2 8" , "0 3" , "f 5" , " 1 8", "e 

2" , "c9" 

REM data schermo 
DATA "01", "00", "Ib", "21", 
"00" , "40" , " 1 1 " , " 58" , "e4" , " 3 
7" , "38" , "01" , "eb" , "ed" , "b 

0" , "c9" 

REM car graf 

DATA 224,224,224,0,0,0,0,0 
DATA 7, 7, 7, 0,0, 0,0,0 
DATA 0,0,0,0,0,224,224,224 


DATA 0,0, 0,0,0, 7,7,7 
DATA 0,0,0,24,24,0,0,0 
DATA 24,24,24,231,231,24,24 


,24 

DATA 60,66,66,189,153,255,6 

6,66 

REM POKE 

LET n=n+l : IF c$ (1 ) <"0" 

OR (c$ (1 ) >"9" AND c$ ( 1 ) <"a 
") OR c$ (1 ) >"f" THEN 
PRINT "Codice errato "; 
INVERSE 1 ;c$ (1 ) ; INVERSE 0 
;c$ (2) ;" dopo ";n;" dati": 

BEEP 1,30: RETURN 
IF C$ (2) <"0" OR (c$ (2) >" 9" 
AND c$ (2) <" a") OR c$ (2 ) >"f 
" THEN PRINT "Codice errat 
o " ;c$ (1 ) ; INVERSE 1 ;c$ (2) ; 

INVERSE 0;" dopo " ; n ; " dat 
i": BEEP 1,30: RETURN 
LET c= (CODE c$(l)-48-(39 
AND c$ (1 ) >"9") ) *1 6 
LET C= (CODE c$ ( 2) -48- ( 39 
AND C$ (2) > " 9 " ) ) +c 


440 LET s=s+c : POKE i,c: 

RETURN 

450 REM present I 
460 CLS : PRINT "Dopo lunghe ri 
cerche storiche la";AT 1,5; 
"FILIBERTO UNIVERSITY": 
PLOT 40,159: DRAW 175,0 
470 PRINT AT 3,4;"e' lieta. di 
presentarvi" ; AT 4,12; 

FLASH 1; "ALCOOL!": PRINT " 
Realizzato da Massimo Mo 
de Ili" 

480 PRINT AT 7,0;" Anno 2984: 
come e' ben noto inquel per 
iodo di proibizionismo sol 

0 la paura della galera pot 
e-va trattenere la gente da 

1 bere. Voi impersonerete 
gli impavid igaudent i che do 
vranno, sfuggendoai control 
li della Polizia...";: 

RETURN 

490 REM present II 
500 PRINT AT 13,26;" e ai subdo 
li agguati dei giocatori, 
ubriacarsi...": RETURN 
510 REM present III 
520 PRINT AT 15,10;" ad un live 
Ilo compre-so tra il 100 e 
il 110% (attentia non sgarr 
are). Per fare ciò' avrete 
a disposizione Birra, Vinoe 
Whisky; fatene buon uso!"' 
" Buona Bevuta": 

RETURN 

Alcool 

versione per ZX Spectrum 48K 

Listato 2 

10 DEF FN i (x, y, z) =y+z-LEN 
STR$ x 

15 DEF FN t$ (x,w) = (STR$ (x+5*l 
0 t (-w-1 ) * (-1 OR x> = 0) ) ) ( 

TO LEN STR$ INT x+w+(ABS x 
>= . 1 -1 0 t (-w-1 ) ) ) 

20 DEF FN r (x,y,z,w) =y+z-w- ( 
ABS x>=.l -1 Ot (-W-1 ) ) -LEN 
STR$ INT x 

25 LET init=58304: LET updown= 
init+145: LET cambio=init+l 
36: LET coma=init+92 

30 PAPER C: BORDER C: INK 9: 

GO SUB 5170: GO SUB 5370: 
REM stampa segnalini-clsl 

35 REM Gioco 
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40 DIM g(n): LET r=n: FOR i=C 
TO n: LET g(i)=i: NEXT i 
45 REM selezione giocatore 

50 LET x= INT (RND*r+C) 

55 LET p=g ( x) : LET r=r-C: 

FOR i=x+C TO n: LET g(i-C) 
=g ( i ) : NEXT i 

60 GO SUB 5400: GO SUB 5230: 
REM cls2-situazione person 
ale 

65 LET br=C: LET fl=C: 

GO SUB 5210: INPUT AT C-C, 
C-C; "Premi ENTER quando sei 
pronto"; LINE a$: GO SUB 2 
00: REM segnalino personale 
-muove 

70 INPUT GO SUB 2000: 

REM valutazione finale 
75 LET mk=p: GO SUB 2100: 

LET p=mk: REM polizia 
80 INPUT LET br=C: LET fl= 

0: GO SUB 5210: GO SUB 5210 
: REM segnalino personale 
85 GO SUB 5400: IF r<>0 

THEN GO TO 45: REM cls2 
90 GO SUB 4000: REM situazione 
generale 
95 GO TO 35 
200 REM muove 

205 LET m=s (p, 1 1 ) : LET h=0: 

GO SUB 5490: REM scrittura 
tempo 

21 0 DIM c (2) 

215 LET mf = 0 : LET br=C: LET f 1 = 
C: GO SUB 5210: REM segnali 
no personale 

220 POKE 23560,0: BEEP .2,0: 

LET a$=p$ (s(p,l 4) , s ( p , 1 3) ) 

: LET m$ (4 TO ) ="" 

225 LET rs=0 : DIM z(n) 

230 IF m< >0 THEN LET m$(4 
TO ) = " N S E O" 

235 LET m$ ( 1 3 TO )="Help "+("F 
ine" AND NOT mf)+(" " 

AND mf) 

240 FOR i=C TO n: IF s(p,13)=s( 
i , 1 3 ) AND s(p,14)=s(i,14) 
AND pOi THEN LET rs = 

SGN m: LET z ( i) =C 
245 NEXT i: IF rs=C THEN LET m 
$ (25 TO ) ="Rissa" 

250 LET m$ ( 31 TO ) ="M=>"+STR$ m 
: PRINT #0 ;m$ 

255 IF PEEK 23560=0 THEN 
GO TO 255 


260 LET k$=CHR$ PEEK 23560 
265 IF m=0 OR (k$<>"n" AND k$ 
<>"s" AND k$< >"e" AND k 
$<>"o") THEN GO TO 350: 

REM comandi H R F 
270 LET c (C) =s (p, 1 3) + (k$="e") - ( 
k$="o") : LET c (2) =s (p, 1 4) + ( 
k$="s" ) - (k$ = "n" ) 

275 LET c (C) =c (C) + ( 1 9 AND NOT c 
(C) ) - (1 9 AND c (C) =20) : 

LET c(2)=c(2)+(15 AND 
NOT c ( 2 ) ) - ( 1 5 AND c ( 2) =16) 
280 LET a$=p$ (c (2) ,c (C) ) 

285 IF a$=" " THEN FOR i=C 
TO 3: IF p(i,C)<>0 
THEN IF r(i,C)=c(C) AND r 
(i,2) =c (2) THEN LET m$ ( 4 
TO ) ="Con la tua fedina pe 
naie...": PRINT #0;m$: 

GO SUB 5600: GO TO 0220: 
REM error 
290 NEXT i 

295 IF a$=" " THEN LET m=m-C: 
LET br=rs : LET fl=0: 

GO SUB 5210: LET s(p,13)=c 
(C) : LET s (p,l 4) =c(2) : 

GO TO 0215: REM segnalino 
giocatore 

300 IF mf THEN LET m$(4 TO ) =" 
Mossa illegale": PRINT #0;m 
$: GO SUB 5600: GO TO 0220: 
REM error 

305 INPUT "": IF a$="G" THEN 

LET m=0: LET br=rs: LET fi 
=0: GO SUB 5210: LET s(p,13 
) =c (C) : LET s (p, 1 4) =c (2) : 
LET br=0 : LET fl=C: 

GO SUB 5210: GO SUB 815: 
RETURN : REM segnalino gio 
catore of f /on-gardens 
310 GO SUB 5470: IF a$>="a" 

AND a$<="z" THEN GO SUB' 0 
600: GO TO 345: REM lettura 
tempo-lavoro 

315 IF a$="B" THEN GO SUB 1200 
: GO TO 345: REM bottiglier 
ia 

320 IF a$="D" THEN GO SUB 1100 
GO TO 345: REM drugstore 
325 IF a$="0" THEN GO SUB 0800 
: GO TO 345: REM osteria 

330 IF a$="R" THEN GO SUB 1000 
: GO TO 345: REM robotteria 

335 IF a$="M" THEN GO SUB 0500 
: GO TO 345: REM metro' 
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340 LET m$(4 TO ) ="Mossa illega 
le": PRINT #0 ; m$ : GO SUB 56 
00: GO TO 0220: REM error 

345 INPUT LET m=m-l : 

GO SUB 5230: PRINT #0;"P 
remi un tasto per proseguir 
e": PAUSE 0: GO SUB 5400: 
INPUT GO SUB 5490: 

GO TO 220: REM situazione 
per sonale-cls2-scri ttura te 
mpo 

350 REM comandi help, f ine , ris 
sa 

355 IF k$="h" THEN GO SUB 3200 
: GO TO 220: REM help 

360 IF k$="r " AND rs THEN 

GO SUB 400: LET m=m-l : 

GO TO 220: REM rissa 

365 IF k$="f " AND a$="G" THEN 

GO SUB 815: RETURN : REM g 
ardens 

370 IF k$="f" AND NOT mf THEN 
INPUT "" : RETURN 

375 LET m$(4 TO )= "Comando erra 
to;attento. . PRINT #0;m$ 
: GO SUB 5600: GO TO 0220: 
REM error 

400 REM rissa 

405 GO SUB 5470: REM lettura te 
mpo 

410 LET i=0 : LET m$(4 TO ) =" EN 
TER cambia, SPACE conferma" 
: PRINT #0 , m$ 

415 LET i=C + i* ( i<n) : IF z ( i ) =0 
THEN GO TO 0415 

420 PRINT #0 ; AT C,0;n$(i,2 TO ) 

: BEEP .3,-10 

425 LET k$=INKEY$ : IF k$="" 

THEN GO TO 0425 

430 IF k$< >" " THEN GO TO 04 
1 5 

435 INPUT LET d ( 3 ) = i : LET d 

(C) =C+8*s (p,l 2) : LET d(2)=9 
*s(i,12)+6-INT (s(i,15)/5) : 

IF d ( 2 ) < = 0 THEN LET d(2) = 
C 

440 GO SUB 5400: REM cls2 


445 PRINT AT 16,2;n$(p,2 TO ); 
AT 20 , 2 ; n$ ( i , 2 TO ): FOR j = 
0 TO 3: PLOT C,j+34: DRAW d 
(C) -C , 0 : PLOT C, j + 1 8: 

DRAW d ( 2 ) -C , 0 : NEXT j 

450 FOR j = 1 0 TO 130 STEP 10: 
PLOT j , 27 : DRAW 0,2: 

NEXT j: GO SUB 5800: LET k 
=C: OVER 1: PRINT AT 20,0;" 

: REM rissa p 

455 LET k=NOT k: PRINT AT 16,0; 
" * " ; AT 20,0;"*" 

460 FOR j=C TO RND* 20+d (C+k) /3 . 
5: IF RND< .60 THEN BEEP .1 
,50: NEXT j : GO TO 0455 

465 PLOT d (2-k) , 1 8 + 1 6*k: DRAW 0 
,3: GO SUB 5820: LET d(2-k) 
=d ( 2-k) -C: IF d ( 2-k) <>0 
THEN NEXT j: GO TO 0455: 
REM rissa s 

470 OVER 0: PRINT AT 18,0;"I1 v 
incitore e' " ; INVERSE C; (n 
$ (p , 2 TO ) AND NOT k)+(n$(d 
(3), 2 TO ) AND k) : LET s((p 
*NOT k) +d ( 3 ) *k , 1 2 ) =INT ( (d ( 
k+C) -C)/8) : LET d(C)=(p* 

NOT k) +d ( 3) *k: LET d(2)=p*k 
+ (d ( 3 ) *NOT k) : LET s(d(2),l 
2 ) = 0 : REM d(l)vince d(2)per 
de 

475 IF s (d ( 2 ) , 2 ) =0 AND s(d(2),3 
) =0 AND s (d ( 2 ) , 4 ) =0 THEN 
LET s(d(C) ,C)=s(d(C) ,C)+s( 
d (2) ,C) : LET s (d ( 2 ) ,C) =0 : 

GO TO 0485 

480 FOR j = 2 TO 4: LET s (d (C ) , j ) 
=s (d(C) , j)+s(d(2) , j) : LET s 
(d ( 2 ) , j)=0: NEXT j 

485 GO SUB 5230: GO SUB 5400: 

GO SUB 5490: RETURN : 

REM situazione personale-c 
ls2-scr ittura tempo 

500 REM metro' 

505 IF s(p,C)<500*(s(p,12)+C) 

THEN LET m$(4 TO )="... se 
nza soldi?": PRINT #0;m$: 

GO SUB 5600: RETURN : 

REM error 

510 LET m=m+ (m< 2 ) : LET s(p,l)=s 
(p,l) -500* ( s (p , 1 2 ) +1 ) 

515 LET k=0 : LET m$(4 TO ) =" EN 
TER cambia, SPACE conferma" 
: PRINT #0,m$ 

520 LET k=l +k* (k<3) : IF t ( k , 1 ) = 
c ( 1 ) THEN GO TO 0520 
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525 PRINT #0 ; AT 1,0; ("Ovest " 

AND k=l ) + ("Centro" AND k=2 
) + ("Est " AND k=3) : 

BEEP .3,-10 

530 LET k$=INKEY$ : IF k$="" 

THEN GO TO 0530 

535 IF k$< >" " THEN GO TO 05 
20 

540 LET h=h+4 

545 LET mf=l : LET fl = 0: LET br= 
rs: GO SUB 5210: LET s(p,13 
) =t (k , 1 ) : LET s (p,l 4) =t ( k , 2 
) : LET f 1 = 1 : LET br = l : 

GO SUB 5210: RETURN : 

REM segnalino giocatore of 
f/on 

600 REM lavoro 

605 IF s (p , 1 2 ) =0 THEN LET m$ (4 
TO )="Non assumiamo person 
ale umano": PRINT #0;m$: 

GO SUB 5600: RETURN : 

REM error 

610 LET nl=CODE a$-96: IF l(nl, 
3 ) =p THEN LET m$(4 TO ) ="N 
on pui tornare qui'...": 
PRINT #0 ;m$ : GO SUB 5600: 
RETURN : REM error 

615 IF 1 (ni , 3) =0 THEN GO TO 06 
70: REM assunzione 

620 REM rissa-lavoro 

625 LET d (3) =1 (ni, 3) : LET d(l)= 
1+1 0*s (p, 1 2) : LET d ( 2 ) = 1 +1 0 
*1 (ni , 5) 

630 PRINT AT 16,2;n$(p,2 TO ); 
AT 20, 2;n$ (l(nl,3) ,2 TO ): 
FOR j =0 TO 3: PLOT l,j + 34: 
DRAW d ( 1 ) - 1 , 0 : PLOT l,j + 18 
: DRAW d (2) -1 ,0: NEXT j 

635 GO SUB 5800: LET k=0: 

OVER 1: PRINT AT 16,0;"*": 
REM rissa p 

640 LET k=NOT k: PRINT AT 16,0; 
" * " ; AT 20,0;"*" 

645 FOR j=l TO d(k+l): IF RNDC. 
60 THEN BEEP .1,50: NEXT j 
: GO TO 0640 

650 PLOT d (2-k) , 1 8+1 6*k: DRAW 0 
,3: GO SUB 5820: LET d(2-k) 
=d (2-k) -1 : IF d (2-k) <>0 
THEN NEXT j: GO TO 0640: 
REM rissa s 

655 OVER 0: PRINT AT 18,0;"I1 v 
incitore e' " ; INVERSE 1 ; (n 
$ (p , 2 TO ) AND NOT k)+(n$(d 
(3). ,2 TO ) AND k) 


660 IF k THEN LET s(p,12)=0: 

LET h=h+2 : LET l(nl,5)= 

INT ( (d (2) -1 ) /I 0) : RETURN 

665 LET s (p, 1 2) =INT ((d(l)-l)/l 
0): LET 1 (ni, 5) =0: LET l(nl 
, 3) =0 : GO SUB 5230: LET h=h 
+2: REM situazione personal 
e 

670 REM assunzione 

675 IF s (p , 1 2 ) =0 THEN LET m$(4 

TO ) ="Non assumiamo person 
ale umano": PRINT #0;m$: 

GO SUB 5600: RETURN : 

REM error 

680 GO SUB 5400: PRINT AT 16,0; 
"Complesso ";CHR$ (nl+96);" 
;"' "stipendio unitario "; 
TAB FN i(l(nl,4) ,19,5) ;l(nl 
,4)'"robot in cessione " ; 

FLASH 1;"?": REM cls2 

685 INPUT 1 (ni , 5) : IF l(nl,5)<l 

OR 1 (ni, 5) >s (p, 1 2) THEN 

LET m$(4 TO ) ="o sono trop 
pi o troppo pochi... ": 

PRINT #0 ;m$ : GO SUB 5600: 

INPUT "": GO TO 685: REM e 
rror 

690 LET 1 (ni, 5) =INT l(nl,5): 

PRINT AT 18,18; TAB FN i(l( 
ni, 5) , 1 9, 5) ; 1 (ni, 5) : LET s( 
p,12)=s(p,12)-l(nl,5) : 

PRINT AT 7, 24; TAB FN i(s(p 
,12) ,29,3) ; s (p , 1 2 ) ; AT 19,0; 
"guadagno per turno" ;TAB 
FN i ( 1 (ni , 5) *1 (ni , 4 ) ,19,5) ; 
1 (ni , 5) * 1 (ni , 4 ) 

695 LET 1 (ni , 3 ) =p: LET h=h+5: 

RETURN 

800 REM osteria 

805 PRINT AT. 1 6 ,C ; "Osteria : ing 
resso £ 5000": IF s(p,C)<50 
00 THEN PRINT '"'Peccato, 
non hai soldi": GO SUB 5600 
: RETURN : REM error 

810 RESTORE 4500: LET cg=C: 

LET s (p,C) =s (p,C) -5000: . 

PRINT AT 1,21 ;TAB FN i(s(p 
,C) ,27,5) ;s(p,C) : GO SUB 08 
40: RETURN : REM bevuta 

81 5 REM gardens 

820 PRINT AT 1 6 ,C ; "Garden ; le pa 
nchine sono gratis" ' #C-C; 

AT C-C ,C-C ; "Vuoi bere? (SPA 
CE si/ENTER no)" 
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825 IF INKEY$=CHR$ 13 THEN 
GO SUB 5400: INPUT 
RETURN : REM Cls2 

830 IF INKEY$<>" " THEN 
GO TO 825 

835 RESTORE 4500: LET cg=2: 

GO SUB 5470: GO SUB 840: 
INPUT "Premi ENTER per ter 
minare"; LINE a$ : GO SUB 54 
00: GO SUB 5490: RETURN : 

REM lettura tempo-bevuta-c 
ls2-scr i ttura tempo 

840 REM bevuta 

845 IF s(p,5)=0 OR s(p,6)=0 

THEN PRINT AT 17,0; "abbia 
mo tutto? No, manca qualcosa 
": GO SUB 5600: RETURN : 

REM error 

850 IF s (p , 2 ) =0 AND s(p,3)=0 
AND s (p, 4 ) =0 THEN PRINT 
AT 17,C;"la bottiglia , dove 
l'ho persa!?!": GO SUB 5600 
: RETURN : REM error 

855 LET j = INT (RND*7+C) : FOR i = 
C TO j : READ a$: READ d(C): 
READ d (2) : READ d (3) : 

NEXT i: PRINT AT 17,C-C; 
INVERSE C; a$ ; INVERSE C-C; 
AT 1 9 ,C-C; "Partecipi con de 
1": LET k=3 

860 LET k=C+k*(k<3): IF s(p,k+C 
K.l THEN GO TO 0860 

865 PRINT #C-C;AT C-C, C-C;" ENT 
ER cambia SPACE conferma 
FLASH C; ("Whisky" AND k= 
C) + ("Vino " AND k=2) + ( "Bir 
ra AND k=3) : BEEP .2,0 

870 IF INKEY$=" " THEN GO TO 87 
0 

875 IF INKEY$<>" " THEN 
GO TO 0860 

880 PRINT AT 19,14;" ?" ;TAB 18; 
" 1. di "; ("Whisky" AND k=C 
) + ( "Vino" AND k=2) + ("Birra" 
AND k= 3 ) 

885 INPUT "quanto? ";i: LET i= 
INT (i*10+.9)/l 0: IF i>s(p, 
k+C) OR i<0 THEN LET m$(4 
TO )="non ho capito bene": 


PRINT #0 ;m$ : GO SUB 5600: 
GO TO 0885: REM error 
890 PRINT AT 1 9,1 4; i 
895 LET s ( p , k+C ) = s ( p , k+C) — i : 

FOR j = 5 TO 7: LET s(p,j)=s 
(P, j ) -C : NEXT j 

900 LET i=i*1.3: LET x=s(p,15): 
IF k=C THEN LET sc=100*(i 
/20 ) tl .6* (C- (x/1 1 0) t3) 

905 IF k=2 THEN LET sc=100*(i/ 
25) tl .2* (C- (x/1 00) 1 2 ) 

910 IF k=3 THEN LET sc=(13* 

LN (i+2) -9.02) * (C-x/1 00) 

915 LET SC=sc+( (RND*2-C)/4.7+( 
RND/3.2 AND cg=C) +RND/d (k) ) 
*sc: LET SC=INT se AND SC>0 
: PRINT AT 20 , 0 ; "ubriacando 
ti di un altro"' se;" per 
cento . " ; 

920 LET s (p, 7+k) =s (p, 7+k) +sc : 

LET s (p, 1 5) =s (p, 1 5) +sc 
925 GO SUB 6200: IF s(p,15)>=10 
0 AND s (p, 1 5) <1 1 0 THEN 
GO SUB 5230: GO TO 2075: 
REM bevuta s-situazione pe 
r sona le- vittoria 
930 LET h=h+7 : RETURN : 

1000 REM robot 

1005 PRINT AT 1 6 ,C ; "Mercato dei 
robot ."' "disponibilità ' di 
magazzino " ;m ( 2 )' "prezzo un 
itario ";m(3) 

1010 IF s (p ,C) <m ( 3 ) THEN 

PRINT "non ti bastano i so 
Idi": GO SUB 5600: RETURN : 
REM error 

1015 IF m ( 2 ) =0 THEN PRINT "robo 
t esauriti; torna piu' tard 
i": GO SUB 5600: RETURN : 
REM error 

1025 PRINT AT 1 9 ,C-C ; "robot rich 
iesti ";"?": INPUT k: LET k 
= INT k: PRINT AT 19,16;k"'p 
rezzo totale ";m(3)*k: IF m 
( 3 ) *k>s (p,C) OR k<C-C OR k> 
m ( 2 ) OR k+s (p, 1 2) >1 4 THEN 
PRINT "dati errati!! contr 
olla meglio": GO SUB 5600: 

PRINT AT 1 9 , 0 ;TAB 31,TAB 3 
1 ,TAB 31: GO TO 1025: REM e 
rror 

1030 LET m(5)=m(5)+k: LET s(p,12 
) =s (p, 1 2 ) +k : LET s(p,C)=s(p 
,C) -m ( 3) *k: LET m (2) =m (2) -k 

1040 LET h=h+4 : RETURN 
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1100 REM drugstore 
1105 PRINT AT 1 6 ,C; "Drugstore" '" 
10 bicchieri £ 2000" '"10 ca 
vatappi £ 700"; AT 20,C-C;" 

ENTER cambia, SPACE conf 
erma": LET k=3 

1115 LET k=C+k* (k<3) : INPUT "": 

PRINT #C-C ; AT C-C,C-C;("vu 
oi comprare " AND k<>3) ; 
FLASH C; ("cavatappi?" 

AND k=C) + ("bicchier i?" 

AND k=2)+("...o vuoi uscir 
e" AND k=3) : BEEP .2,0 
1120 IF INKEY$=" " THEN GO TO 11 
20 

1125 IF INKEY$< >" " THEN 
GO TO 1115 

1130 IF k=3 THEN LET h=h+3: 
INPUT "" : RETURN 

1135 INPUT AT C-C,C-C; ("quante c 
onfezioni di "+( "cavatappi" 
AND k=C) +( "bicchier i" 

AND k=2) +" ? " ) ' i : LET i= 
INT i: IF i<0 OR 2000*i* (k= 
2) +700*i* (k=C) > s (p,C) 

THEN INPUT PRINT AT 2 

l,C-C;"mi stai prendendo in 
giro?!?": GO SUB 5600: 
PRINT AT 21 ,C-C ;TAB 31: 

GO TO 1135: REM error 
1140 LET s (p,C) =s (p,C) -i* ( (2000 
AND k=2) + (700 AND k=C) ) : 
LET s (p, 4+k) =s (p, 4+k) +i*l 0 
: GO SUB 5230: GO TO 1115: 
REM situazione personale 
1200 REM bottiglieria 
1205 PRINT AT 1 6 ,C; " Bottiglieria 
" ' TAB 11; "Whisky Vino B 
irraDisp 1";TAB 11;FN t$ ( 
f (C, 2) ,C) ;TAB 20 ; FN t$(f(2, 
2) ,C) ;TAB 28 ; FN t$(f(3,2),C 
) ' "Prezzo £" ; TAB FN i(f(C,3 
) ,10,5) ; f (C , 3 ) ;TAB FN i(f(2 
,3) ,17,7) ;f (2,3) ;TAB FN i(f 
(3,3) ,26,6) ;f (3,3) 

1210 IF f (C,2)+f (2,2)+f (3,2)=0 

THEN PRINT '"Purtroppo si 
amo senza...": GO SUB 5600: 
RETURN : REM error 

1 21 5 LET k=3 

1220 LET k=C+k* (k<3) : IF f(k,2)< 
.1 THEN GO TO 1220 
1225 PRINT #C-C; AT C-C,C-C;" ENT 
ER cambia, SPACE conferma 
vuoi "; FLASH C; "Whisky" 
AND k=C; "Vino " AND k=2 


; "Birra " AND k=3;" ?" : 

BEEP .2,0 

1230 IF INKEY$=" " THEN GO TO 12 
30 

1235 IF INKEY$<>" " THEN 
GO TO 1220 

1240 INPUT "": PRINT AT 20,0; "Co 
mpri 1. ? di "; "Whisky" 

AND k=C ; "Vino" AND k=2;"Bi 
rra" AND k=3: INPUT "Quanto 
? " ; x : LET x=INT (x*10+.9)/ 
10 

1245 IF x<0 OR x>f (k , 2) OR s(p,C 
) < INT (x*f (k, 3) ) THEN 
PRINT #0 ; "non ho capito": 
GO SUB 5600: GO TO 1240: 
REM error 

1 250 PRINT AT 20 , 1 1 ; x ' " tota le £ 

" ; INT (x*f (k, 3) +. 5) 

1 255 IF x< 3 THEN LET f(k,2)=f(k 
,2)-x: LET s (p ,C) =s (p,C) - 
INT (x*f (k , 3) ) : LET s (p,C+k 
) =s (p,C+k) +x: LET f(k,5)=f( 
k, 5) +x: LET h=h+5 : RETURN 
1260 REM extra 
1265 LET sc=x+x* ( . 2+RND/3) : 

LET mk=0: LET y=x: GO TO 1 
285 

1270 LET mk=mk+INT (RND* 1 0+ . 9 ) /I 
0: LET x=y+mk : INPUT "" 

1275 IF x>sc OR x>f (k , 2 ) THEN 

PRINT #0;"Piu' di cosi' no 
n posso!!!": BEEP .4,30: 

LET h = h+l 0 : RETURN 
1 280 PRINT # 0 ; AT 0, 0 ; "aggiungo " 
;mk;"; in tutto 1. ";x 
1 28 5 PRINT #0 ; AT 1,0; "SPACE se 0 
K, altrimenti un tasto";: 
PAUSE 2: IF INKEY$=" " 

THEN GO TO 1285 
1 290 IF INKEY$< >" " THEN 
GO TO 1270 

1 295 LET f (k,2)=f (k,2) -x: LET s( 
PfD =s(p,l) -INT (y*f (k , 3) ) : 
LET s (p, 1 +k) =s (p, 1 +k) +x: 
LET f (k,5)=f (k,5)+x: LET h 
= h+l 0 : RETURN 

2000 REM valutazione finale 

2020 INPUT "": GO SUB 5470: 

REM lettura tempo 
2025 IF s (p, 1 ) >1 00000 THEN 

LET y=INT ( s ( p , 1 ) *.5) : 

GO TO 2035 

2030 LET y=INT ( ( . 0 5+ ( s (p , 1 ) /I 50 
000) tl . 9) *s (p, 1 ) ) 
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2035 PRINT AT 16,0; "Tassa patrim 
oniale £ ";y: LET s(p,l)=s( 
p, 1 ) -y : LET y=INT ( ( h/60 ) 1 2 
. 3*s (p, 1 ) ) ; LET y=(y AND y 
<=s (p, 1 ) ) + (s (p, 1 ) AND y>s (p 
,1)): PRINT "Spese varie £ 
";y: LET s (p , 1 ) =s (p, 1 ) -y 

2036 FOR j=l TO 1: IF l(j,3)=p 

THEN LET s (p,l ) =S (p,l ) +1 ( 
j,4)*l(j,5) 

2037 NEXT j: LET s(p,ll)=(lm- 
INT (s (p,l 5) *lm/l 00) ) AND s 
(p, 15)<100 

2040 LET S (p, 6) =s (p, 6) -1 -INT ( (h 
/ 6 0 ) t2 . 4*1 5) : LET s(p,6)=s( 
p,6)*(s(p,6)>0) 

2045 LET s (p,8) =s (p,8) -INT (s(p, 
8 ) * (h/70 ) 1 2 . 2) : LET s(p,9) = 
s (p , 9 ) - INT (s (p,9) * (h/60) t2 
) : LET s (p,l 0) =s (p,l 0) - 
INT (s (p,l 0) * (h/60) tl .5) : 

PRINT AT 18,0; "La sbronza 
scende di " ; s (p, 1 5) -s (p , 8) - 
s (p, 9) -s (p, 1 0) ; " punti" 

2050 LET s (p, 1 5) =s (p,8) +s (p,9) +s 
(P,10) 

2055 IF s (p , 1 5) <=0 THEN LET s(p 
, 1 5) =0 : LET s (p, 8) =0: LET s 
(p, 9) =0: LET s (p, 1 0) =0 

2060 IF s (p , 1 2) >0 THEN FOR j=l 
TO s (p, 1 2 ) : IF RND> .948 
THEN LET s (p , 1 2 ) =s (p, 1 2) - 
1: GO SUB 6100: REM guasto 
s 

2065 NEXT j 

2067 FOR j =2 TO 4: LET s(p,j) = 
INT (s(p,j)*10+.9)/10 

2070 GO SUB 5230: IF s(p,15)<100 
OR s (p,l 5) >1 1 0 THEN 
RETURN : REM situazione pe 
rsonale 

2075 REM vittoria 

2080 GO SUB 5400: POKE updown,55 
: PRINT AT 17, 2; "SEI BRILLO 
COME UN BIRILLO! !": 
RANDOMIZE USR cambio: 

POKE updown,167: POKE coma 
+1,1: POKE coma+3,255: 

POKE coma+11,0: POKE coma+ 


' 1 2,1 : REM cls2 

2085 FOR j =0 TO 0 STEP 0: 

RANDOMIZE USR coma: CLS : 

RANDOMIZE USR cambio: IF 
INKEY$=" " THEN NEXT j 

2090 GO SUB 3000: PRINT #0;AT 0, 
0; BRIGHT 1;" FIASCA 

D’ORO A 

" ; n$ (P, 2 TO ) ;" 

" : REM help tavole 

2095 FOR j = 0 TO 0 STEP 0: 

RANDOMIZE USR coma: IF 
INKEY$=" " THEN NEXT j 

2096 STOP : RETURN 

21 00 REM polizia 

2105 FOR i =C TO 3 

2110 IF p(Ì,C)<>0 THEN LET p( 

i,C) =p( i ,C) +1 : GO SUB 2125: 

NEXT i: RETURN : REM gesti 
one ronda 

2115 IF RNDC.85 THEN NEXT i: 

RETURN 

2120 LET p(i,C)=C: LET r(i,C)= 
INT (RND* 1 9+C) : LET r(i,2)= 
INT (RND* 1 5+C) : LET p(i,2)= 
INT (RND *4+C) 

2121 IF p$ (r (i,2) ,r (i,C) )<>" " 

THEN LET r ( i , C ) =C+r ( i , C ) * 
(r ( i,C) 019) : GO TO 21 21 

2122 GO SUB 2125: NEXT i: 

RETURN : REM gestione rond 
a 

2125 REM gestione ronda 

2130 LET cg=C- ( 2 AND RND>.5): 

IF p(Ì,C)OC THEN LET f 
1=C-C: GO SUB 2160: IF p(i, 
C)=10 THEN LET p(Ì,C)=0: 

RETURN : REM grafica ronda 

2132 LET rx=r (i,C) + (p(i,2) =2) - (p 
( i,2) =4) : LET rx=rx- ( 1 9 

AND rx>l 9) + ( 1 9 AND NOT rx) 

: LET ry=r ( i , 2 ) + (p ( i , 2) =3) - 
(p( i, 2) =1 ) : LET ry=ry- ( 1 5 

AND ry>l 5) + ( 1 5 AND NOT ry) 

: IF p$ (ry , rx) <>" " 

THEN LET p ( i , 2 ) =p ( i , 2 ) +cg 
: LET p ( i , 2 ) =p ( i , 2 ) + ( 4 

AND NOT p ( i , 2) ) - ( 4 AND p(i 
,2) =5) : GO TO 21 32 

2135 LET r(i,C)=rx: LET r(i,2)=r 
y: LET f 1=C: GO SUB 2160: 

FOR j=C TO n: REM grafica 
ronda 

2140 IF s ( j ,1 3) =r (i,C) AND s(j,l 
4 ) =r ( i , 2 ) THEN PRINT AT 20 
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,C; "PERQUISIZIONE PER 
FLASH C ; n$ ( j , 2 TO ) : 

GO SUB 6000: IF s(j,12)>4 
OR s ( j ,2) OR s ( j ,3) OR s ( j 
, 4 ) THEN GO TO 2150: REM s 
irena 

2145 NEXT j: RETURN 
2150 LET s ( j , 1 2) =s ( j , 1 2) * (s ( j , 1 2 
) < = 4) : LET s ( j , 2 ) =0 : LET s( 
j , 3) =0 : LET s(j,4)=0: LET p 
= j : LET f 1 = 0 : LET br = 0 : 

GO SUB 5210: REM segnalino 
giocatore 

2155 LET s(j,13)=px: LET S ( j , 1 4 ) 
=py : GO SUB 5210: PRINT #0; 
AT 0,0;"Arresto ";n$(j,2 
TO ) : GO SUB 5900: NEXT j: 
RETURN : REM segnalino gio 
catore-arres to s 
2160 REM grafica ronda 
2165 PRINT OVER C;AT r(i,2)-C,r 
(i,C) -C;"G" 

2170 RETURN 

3000 REM help tavole 


3005 
301 0 

3015 

3020 


3025 


3035 


3040 


BORDER 6 

POKE updown , 55 : RESTORE 
USR cambio: REM cambio pagi 
na 


3, 


8 , 


1: PAPER 6: INK 0 
INK 8 

171 1,1; "Whisky" ; 

" "; PAPER 6; AT 
PAPER 2;" " ; 

AT 5 , 2 ; "Birra" ; 

" "; PAPER 6 ; AT 
; PAPER 4;" "; 

AT 1 0, 0; "Sbronza" ; 

Il II 

1 3 , 0 ; " £ *1000"; 
ironza";TAB 4;"Cav" 
iic";TAB 1 ; " Robot s" 
fhisky" ;TAB 3; "Vino 
Birra" 

■O n: FOR i = 0 TO 3: 
[K 6 ; 44+32* j + i , 1 28 : 
!K 0; 0, s ( j , 2) *1 . 5* ( 
1 ) : PLOT INK 6; 48 
: DRAW INK 4; 0, 
(j,l) -187500 

'87500) )/1500 
1 


>1 


52 + 32* j-rj. , ■ 

; 0, s ( j , 3) *1 . 5* ( 
PLOT INK 6; 56 
DRAW INK 1 ; 0, 
PLOT INK 6; 60+ 




(j,4)*1.5*(s(j,4)<=31) : 

NEXT i 

3045 NEXT j: OVER 1: FOR j=l 
TO n 

3050 PAPER 8: INK 9: FOR i=12 

TO 21: PRINT PAPER j ; AT i 
, 4+4* j ; " ": NEXT i: 

PRINT AT 1 2, 5+4* j ;n$ ( j , 2 
TO 4) 

3055 PRINT AT 13, FN Ì(INT ( s ( j , 1 
)/1 000) , 5+4* j , 3) ; INT (s ( j , 1 
) /I 000) ; AT 14, FN i ( s ( j , 1 5 ) , 
5+ 4 * j , 3 ) ;s(j,15) ; AT 15, FN i 
(s ( j , 5) , 5+4* j , 3) ; s ( j , 5) 

3060 PRINT AT 16, FN Ì(s(j,6),5+4 
* j , 3 ) ; s ( j , 6) ; AT 17, FN i(s(j 
,12) , 5+4* j , 3 ) ;s ( j , 1 2) 

3065 PRINT AT 18, FN i(INT s(j,2) 
,5+4*j ,3) ; INT s(j,2);AT 19, 
FN i ( INT s ( j ,3) , 5+4*j ,3) ; 
INT s ( j , 3 ) ; AT 20, FN i(INT s 
( j , 4 ) , 5+4* j , 3 ) ; INT s ( j , 4 ) 
3070 NEXT j: PAPER 1: PAPER 8: 
INK 9: OVER 0: BRIGHT 0: 
RETURN 

3100 REM help lavori 

3105 GO SUB -5400: LET fl = l : 

GO SUB 5440: PAPER 1: 

GO SUB 5390: GO SUB 5100: 
BORDER 4: INPUT "": 

PAPER 8: REM cls2-grafica 
lavori-clsl -lista lavori 

3110 PRINT #0 ; AT 0,0;: FOR i = 1 

TO n: PRINT #0; BRIGHT l;n 
$ ( i , 1 ) ; BRIGHT 0 ; n$ ( i , 2 
TO ) ; : LET y= 0 

3115 FOR j=1 TO 1: IF l(j,3)=i 

THEN LET y=y+l (j,4)*l(j,5 

) 

3120 NEXT j: PRINT #0;TAB FN i (y 
,9+16* (INT (i/2) =i/2) ,5) ;y, 

: NEXT i 

3125 PAUSE 0: LET fl=0: GO SUB 5 
440: BORDER 1: RETURN : 

REM grafica lavori 
3200 REM help 

3205 INPUT "": GO SUB 5470: 

REM lettura tempo 
3210 PRINT AT 16,1; "Help! 0 p 

er uscire M, "l L'erba del v 

icino e' sempre la piu' 

verde"'" 2 Opportunità' pe 

r i giovani" '"3 Sussidio d 

i sopravvivenza" '" 4 Aggior 

namenti economici" ; #0 ; AT 0, 
0;"5 Uscita dal gioco" 


40 SUPERSINC® 2/85 



3215 LET h$=INKEY$ : IF h$<"0" 

OR h$>" 5" THEN GO TO 3215 

3220 IF h$=" 1 " THEN LET h=h+6: 

GO SUB 3000: INPUT AT 0,0; 
"Premi ENTER per continuare 
LINE h$ : BORDER 1: 

POKE updown ,167: RESTORE 
USR cambio: GO TO 3215: 

REM help tavole 
3225 INPUT IF h$="0" THEN 

LET h=h+3 : GO SUB 5400: 

GO SUB 5490: RETURN : 

REM cls2-scr i ttur a tempo 
3230 IF h$=" 2" THEN LET n=h+5: 
GO SUB 3100: GO SUB 5370: 
INPUT GO SUB 5400: 

GO SUB 5230: GO TO 3210: 
REM help lavoro-clsl -cls2- 
situazione personale 
3235 IF h$="3" AND (s(p,l)>1250 
OR s(p, 12)00 OR s (p, 1 5) 
>15) THEN PRINT #0;"Non ne 
hai diri tto , fila" : 

GO SUB 5600: INPUT "": 

LET h=h+5 : GO TO 3210: 

REM error 

3240 IF h$=" 3" THEN PRINT #0;"O 
K": LET s(p,l)=s(p,l)+3000: 
GO SUB 5230: PAUSE 30: 
INPUT GO TO 3210: 

REM situazione personale 
3242 IF h$=" 5" THEN GO TO 3260 
3245 LET h=h+6: GO SUB 5400: 

PRINT AT 1 6,0;"ROBOT:Dispo 
nibilita' ";m(2);" a £ ";m( 
3) : REM cls2 

3250 PRINT AT 1 8 , 0 ; "ALCOOL" ; 

TAB 11 ; "Whisky Vino Bir 
raDisp g";TAB FN r(f(l,2) 
,10,5,1) ;FN t$ (f (1 ,2) ,1) ; 
TAB FN r ( f ( 2 , 2 ) ,17,7,1) ; 

FN t$(f (2,2) ,1) ;TAB FN r(f ( 
3,2) ,26,6,1 ) ;FN t$ (f (3,2) ,1 
)' "Prezzo £" ;TAB FN i ( f ( 1 ,3 
) ,1 0, 5) ;f (1 ,3) ;TAB FN i (f (2 
,3) ,17,7) ;f (2,3) ;TAB FN i(f 
(3,3) ,26,6) ;f (3,3) 


3255 PRINT #0; "Premi un tasto pe 
r proseguire": PAUSE 0: 
INPUT "": GO SUB 5400: 

GO TO 3210: REM cls2 

3260 INPUT """ S "" conferma ";h$: 
IF h$<>"s" THEN GO TO 3 
21 0 

3265 GO SUB 5170: FOR j=C TO 15: 
FOR i=p+C TO n: LET s(i-C, 
j ) =s ( i , j ) : NEXT i: NEXT j: 

FOR i=p+C TO n: LET n$(i-C 
) =n$ ( i) : NEXT i: FOR j=l 
TO 1: IF 1 ( j , 3 ) >=p THEN 
LET 1 ( j , 5) =1 ( j , 5) * (1 ( j ,3) 
<>p) : LET l(j,3)=(l(j,3)- 
C) * ( 1 ( j , 3 ) <>p) 

3270 NEXT j: LET n=n-C: GO SUB 5 
170: GO TO 35 

4000 REM situazione generale 

4005 GO SUB 3010: REM help tavol 
e 

4010 REM robottifici 

4015 LET m(3) =m(3) - (300 AND m(3) 
>800) + (300 AND m(5)>m(4)) + ( 
300 AND m (5) >m (1 ) ) + (1 00 
AND m ( 6 ) >0 ) +INT (RND*100*( 
m ( 5) -m ( 4 ) ) ) 

4020 LET m ( 1 ) =m ( 1 ) + ( 2 AND m(2)=0 
) + ( 2 AND m (5) >m (1 ) ) + (2 
AND m ( 5 ) >m ( 4 ) ) + ( 1 AND m ( 6 ) 
>0 ) - ( 1 AND m (5) <m (1 ) ) - (1 
AND m ( 5 ) <m ( 4 ) ) - ( 1 AND m ( 6 ) 
<0) 

4025 IF m ( 1 ) <0 THEN LET m(l)=0 

4030 LET m(2)=m(2)+m(l) : IF m(2) 
>6*n THEN LET m ( 3) -m ( 3) -75 
* (m(2) -6*n) : LETm(2)=6*n: 
LET m (1 ) = 0 

4035 LET m ( 6) =m ( 5) -m ( 4 ) : LET m(4 
) =m (5) : LET m (5) =0 

4040 REM distillerie 

4045 FOR i=l TO 3 

4050 LET f (i,3) =f (i,3) - (300 

AND f (i,3)>((4-i)*3300))+( 
400 AND f (i,5)>f (i,4))+(300 
AND f (i,5)>f (i,l) ) + (100 
AND f (i,6) >0)+INT ( RND *100 
*(f (i,5)-f (i,4) ) ) 

4055 LET f (i,l ) =f (i,l ) + (3 AND f( 
i , 2) < . 1 ) + ( 3 AND f (i, 5) >f (i, 
1) )+(2 AND f (i,5)>f (i,4))+( 
1 AND f ( i , 6) >0) - ( 1 AND f(i, 
5 ) <f ( i , 1 ) ) — ( 1 AND f ( i , 5) <f ( 
i,4) ) - (1 AND f (i,6) <0) 
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4060 IF f ( i , 1 ) <0 THEN LET f(i,l 
) =0 

4065 LET f (i,2)=f (i,2)+f (i,l) : 

IF f (i, 2) >1 0+2. 5*n THEN 
LET f (i, 3) =f (i, 3) -95*INT ( 
f (i,2) -1 0-2. 5*n) : LET f(i,2 
) =1 0+2. 5*n : LET f(i,l)=0 
4070 LET f (i,6) =f (i,5) -f (i,4) : 

LET f(i,4)=f(i,5): LET f(i 
, 5) =0: LET f ( i , 2 ) =INT (f(i, 
2) *10+.9)/10: NEXT i 
4075 REM guasti lavoratori 
4080 FOR i= 1 TO 1: IF l(i,3)=0 
THEN NEXT i: GO TO 4095 
4085 FOR j=l TO l(i,5): IF RND< . 
949 THEN NEXT j: NEXT i: 

GO TO 4095 

4090 LET 1 (i,5) =1 (i,5) -1 : 

GO SUB 6100: NEXT j: LET 1 
(i,3) -1(1,3) AND 1 ( i , 5) 

<>0: NEXT i 

4095 INPUT "Premi ENTER per pros 
eguire" ; LINE a$: POKE updo 
wn,167: RESTORE USR cambio: 
RETURN 

4500 REM Data frasi bevuta 

4505 DATA "Si consiglia la Birra 
.... o al piu' il Vin 

o ",-6.25,16, 3. 8 

4510 DATA "Per "+n$(l,2 TO )+" i 
1 migliore e' il Whisky, s 
egue a ruota il Vino", 4. 7, 9 
,-4.7 

4515 DATA "Superciuk assicura""G 
rande sbron-za con il Whisk 
y o con la Birra""" ,3. 8, -9, 
9 

4520 DATA "La graduatoria di And 
ycap: Birra , Vino e pessimo i 
1 Whisky" , -9 , 1 00, 4 . 7 
4525 DATA "Halcoolicus Anonimus 
vede i BEM con un sorso di 
Vino o di Whisky" , 1 6 , 3 . 8 , -1 
6 

4530 DATA "Una boccia di Vino o 
una pinta di Birra-questa 
si' che e' vita" , - 9 , 4 . 7 , 1 00 

4535 DATA "Whisky o Birra-dice " 
+n$(2,2 TO )+"-fateun po' v 
oi. ",6.2,-6.2,100 
5010 REM Sub grafica pianta 
5020 PAPER 2: FOR j=l TO 15: 

PRINT AT j - 1 , 0 ; : FOR i = l 
TO 19 


5050 

IF p$(j 

,i)=" " THEN 



PRINT 

" ";: GO TO 5090 

5060 

IF p$(j 

,i)="." THEN 



PRINT 

PAPER 0 ; " " ; : 



GO TO 

5090 


5065 

IF p$(j 

, i ) ="G" THEN 



PRINT 

PAPER 4 ; " " ; : 



GO TO 

5090 


5070 

PRINT 

PAPER 0 ; p$ ( j , i ) 

• 

f 

5090 

NEXT i: 

NEXT j : PAPER 

1 


RETURN 



5100 

REM Sub 

lista lavori 


51 1 0 

FOR i=l 

TO 1 


51 20 

PRINT AT i-6* (i>5) +1 5* 

( 


) ,1 9* (i>5) ;CHR$ (i+96);" "; 
: IF 1 ( i , 3 ) =0 THEN PRINT " 
";: GO TO 5140 

5130 PRINT n$ ( 1 ( i , 3 ) ,2 TO 4); 
5140 PRINT " " AND l(i,5) <10 

; 1 ( i , 5 ) ; " " ; " " AND 1 ( i , 4 ) < 
1 000; 1 ( i ,4) 

5150 NEXT i 

5160 PRINT AT 0,0: RETURN 
5170 REM Stampa segnalini 
5180 FOR i=l TO n 
5190 PRINT AT s ( i , 1 4) -1 , s ( i , 1 3) - 
1; OVER 1; BRIGHT 1; INK 8; 
PAPER 8 ; n$ ( i , 1 ) 

5200 NEXT i: RETURN 

5210 REM segnalino giocatore 

5220 PRINT AT s (p , 1 4 ) - 1 , s (p, 1 3 ) - 
1 ; OVER 1 ; INK 8 ; PAPER 8 ; 

BRIGHT br; FLASH fl;n$(p,l 
) : RETURN 

5230 REM Situazione personale 

5240 PRINT AT 0,21; BRIGHT 1 ;n$ ( 
p, 1 ) ; BRIGHT 0;" ";n$(p,2 
TO ) 

5250 PRINT AT 1 , 1 9 ; " £" ;TAB FN i( 
s ( p , 1 ) ,26,6) ; s ( p , 1 ) 

5260 PRINT AT 3 , 1 9 ; "Wh isky" ; 

TAB FN r ( s (p, 2 ) ,28,4,1) ; 

FN t$ (s (p, 2) ,1 ) 

5270 PRINT AT 4 , 1 9 ; " Vino" ;TAB 

FN r (s(p, 3) ,28,4,1) ;FN t$ (s 
(P,3) ,1) 

5280 PRINT AT 5 , 1 9 ; "Birra" ;TAB 

FN r (s (p,4) ,28,4,1 ) ; FN t$ (s 
( P , 4 ) ,1) 

5290 PRINT AT 7 , 1 9 ; "Robot" ;TAB 
FN i (s (p, 1 2) ,28,4) ; s (p, 1 2) 
5300 PRINT AT 8 , 1 9 ; "Mobilita '" ; 

TAB FN i(s(p,ll) ,28,4) ;s(p, 
11) 
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5310 PRINT AT 10,19;"Cav Bic" 
5320 PRINT AT 11,19;TAB FN i(s(p 
,5) ,20, 2) ;s (p,5) ;TAB FN i(s 
(Pf 6) ,24,3) ; s (p, 6) 

5330 PRINT AT 1 4 , 1 9 ; "Sbronza" ; 

TAB FN i (s (p,l 5) ,29,3) ;s (p, 
15) 

5340 PRINT AT 12,19;" 

" ; AT 13,19;" 

II . 

5350 FOR i=66 TO 69: PLOT 154,i: 
PLOT OVER 1 ; 1 54 , i : DRAW 
INK 4- ( 2 AND s (p, 1 5 ) > 1 00 ) ; 
S (p, 1 5) - (1 00 AND s (p, 1 5) >1 0 
0) ,0: NEXT i 
5360 RETURN 
5370 REM clsl 
5380 PAPER 3 

5390 FOR j =0 TO 14: PRINT AT j , 1 
9 ; " " ; : NEXT j : 

PAPER 8: RETURN 
5400 REM cls2 

5410 PAPER 1: FOR j = 1 5 TO 21: 
PRINT AT j ,0;" 

H • . 
f * 

NEXT j: PAPER 8: RETURN 
5440 REM grafica lavori 
5450 FOR j=l TO 1: PRINT AT 1 ( j , 
2) -1 , 1 ( j , 1 ) -1 ; PAPER 0; 

INK 3; FLASH fl*NOT 1 ( j , 3 ) 
;CHR$ ( j + 96) : NEXT j 
5460 RETURN 

5470 REM lettura tempo 
5480 LET h=PEEK 23672+256*PEEK 2 
3673: LET h= INT (h/50) : 

PRINT AT 15,19; " time " 

; AT 1 5 , 24 ; h : RETURN 
5490 REM scrittura tempo 
5500 LET h=h* 50 : POKE 23673, 

INT (h/256) : POKE 23672, h-2 
56* INT (h/256): RETURN 
5600 REM error 

5610 POKE coma+1, 1: POKE coma+3, 
100: POKE cornati 1 , 1 01 : 

POKE cornati 2,0: POKE comat 
17,3: FOR s=l TO 6: 

RESTORE NOT USR coma : 

NEXT s: PAUSE 60: RETURN 
5800 REM rissa p 


5810 POKE cornati, 1: POKE comat3, 
8: POKE cornati 1,0: POKE com 
a+12,10: POKE comatl7,80: 

RETURN 

581 5 REM rissa s 

5820 RESTORE NOT USR coma: 

RETURN 

5900 REM arresto s 
5910 RESTORE 5950: GO TO 6020 
5950 DATA VAL "1",VAL "10", VAL " 
5", VAL " 0" , VAL "8", VAL "0", 
VAL "42", VAL "1",VAL "46", 
VAL " 1 " , VAL "83" , VAL "8", 
VAL "87", VAL "1" 

6000 REM sirena 

6010 RESTORE 6050 

6020 FOR S=1 TO 7: READ si: 

READ sn : POKE inittsi,sn: 

NEXT s: RESTORE NOT USR in 
it: RETURN 

6050 DATA VAL " 1 " ,VAL "2", VAL "5 
" , VAL " 1 " , VAL "8", VAL "3", 
VAL "42", VAL "244", VAL "46" 
, VAL "4", VAL "83", VAL "230" 
, VAL "87", VAL "3" 

6100 REM guasto s 

6110 POKE cornati ,1: POKE comat3, 
5: POKE cornati 1, INT (RND*25 
6): POKE cornati 2,1: POKE co 
ma t 17, 100: RESTORE NOT 
USR coma: RETURN 
6200 REM bevuta s 

6210 LET s= (sc*30 AND sctx<=110) 
t ( ( 1 1 0-x) * 30 AND sctx> 110): 

LET sn=INT (s/256) : POKE c 
omatl,sntl: POKE comat3,lts 
-sn* 256 : LET si = INT ((3300- 
x*30)/256): POKE comatll,33 
00-x*30-si*256: POKE cornati 
2, si: POKE cornati 7, 80: 

RESTORE NOT USR coma 

6220 IF xtsc> 1 1 0 THEN POKE coma 
tl , 1 : POKE comat 3 ,100: 

POKE comat29 , 255 : 

RESTORE NOT USR coma: 

POKE comat29,0 
6230 RETURN 
8000 REM Input dati 
8010 LET C=1 : PAPER C: INK 9: 

BORDER C 

8020 INPUT "Quanti siete? ";n: 

IF n<2 OR n>6 THEN 

PRINT #0;"...non ci siamo! 
": PAUSE 200: GO TO 8020 
8030 REM nomi 
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8040 DIM n$ (n , 8 ) : PRINT #0;"Chi 
siete... (7 caratteri)";: 

PAUSE 200 

8050 FOR i=C TO n: LET n$(i,C)= 
CHR$ (i+143) 

8060 INPUT ( BRIGHT C;n$(i,C));n 
$ (i, 2 TO ) : NEXT i 

8070 INPUT AT 0,0; "Quanti posti 
di lavoro volete?" ;1: IF 1< 
C OR 1>26 THEN GO TO 8070 

8075 INPUT "Mosse per turno? ";1 
m: INPUT "Livello paga (0-9 
)? " ; 11 

8080 REM Distribuzione posti d 
i lavoro 

8085 INPUT "Mappa n. ";y: CLS : 

DIM t ( 3 , 2) : RESTORE 8200+y 
*100: READ ni: FOR i=C TO 3 
: READ t ( i , C ) : READ t ( i , 2 ) : 

NEXT i : READ px : READ py 

8090 DIM 1(1,5): DIM p$(15,19): 

FOR Ì=C TO 15: READ p$(i): 

PRINT p$ (i) : NEXT i : 

GO SUB 5010: REM grafica p 
ianta 

8100 PRINT #0; "Attendete": LET k 
=1: LET r =nl : FOR j=C TO 15 
: FOR i=C TO 19: LET p=k/(r 
+ .001) : IF p$ (j,i)="." 

THEN LET r=r-C: IF RND<p 

THEN LET k=k-C: LET p$ ( j , 
Ì)=CHR$ (l-k+96) : LET l(l-k 
,1 ) =i: LET 1 (l-k,2)=j : IF 
NOT k THEN GO TO 81 20 

8110 NEXT i: NEXT j 

8120 LET f 1=C: GO SUB 5440 

8130 INPUT "OK?" ,k$: IF k$<>"s 
" AND k$<>"n" THEN 

GO TO 81 30 

8140 IF k$="n" THEN CLS : 

GO TO 8090 

81 50 REM Valutazione stipendi 

8160 FOR i=C TO 1: LET l(i,4)=45 
0+1 50*11 + INT ((ABS (1 ( i ,C) - 

1 0 ) +ABS ( 1 ( i , 2 ) - 8 ) )* (85+10* 

11) ) +INT (RND* 500 ) : NEXT i 

8170 GO SUB 5100: INPUT AT 0,0;" 
Premi ENTER per proseguire" 
; LINE a$ : LET fl = 0: 

GO SUB 5440: REM lista lav 
ori-grafica lavori 

8180 REM Definizione matrici , 



81 90 

DIM 

d(3) 

: DIM 

r (3,2) : DIM s 


(n. 

1 5) : 

DIM m 

(6) : DIM f (3,6 


) : 

DIM p 

(3,2) 

: DIM m$ (35) : 


LET m$= 

CHR$ 

22+CHR$ 0+ 


CHR$ 0 



8210 

FOR 

i=C 

TO n 


8220 

LET 

s (i. 

1 2) =4 

: LET s ( i , 1 ) = 5 


000 

: LET 

s (i. 

1 1 ) =lm : REM ro 


bot 

, sold 

i ,mob 

ilita ' 

8230 

LET 

s ( i. 

1 3 ) = INT ( RND *19) +C : 


LET s ( i 

,14) = 

INT (RND* 1 5 ) +C 


: REM X, 

y' 


8240 

IF 

P$ (s ( 

i , 1 4 ) 

, s ( i , 1 3 ) )<>" 


II 

THEN 

LET 

s ( i , 1 4 ) =C+s ( i , 


14) 

*(s(i 

, 1 4 ) < 

>15) : 


GO TO 8240 
8250 NEXT i 

8270 jDET m(C)=2: LET m(2)=3*n: 

LET m(3) =500+INT (RND*400) 
: REM prod ,disp, prezzo 
8280 FOR i=C TO 3: LET f(i,C)=C: 
LET f ( i , 2 ) =n/2 : LET f(i,3) 
= (4-i) *3000 + INT ( RND *1 000) : 

NEXT i: REM prod ,disp,prez 
zo 


8290 

GO TO 

25 


8300 

REM data mappa 

831 0 

DATA 

90,1 , 

2,11 

831 1 

DATA 

" O. 

.# 

831 2 

DATA 

"M . 

G i 

831 3 

DATA 

Il 

• 

• • • • ^ 

831 4 

DATA 

II 

• • • 

• 

831 5 

DATA 

II 

• 

. BR 

831 6 

DATA 

" B 

. D 

831 7 

DATA 

II 

• « • • 


8318 

DATA 

" G 

R . 

831 9 

DATA 

" .G. 

DOB 

8320 

DATA 

Il 

• • 


8321 

DATA 

" . . G . 



GG.B 


• G 

D.O 


.M 


BD 

R 


R. 


, B . 

R 


O " 

• • • v/ • 

II 

c 11 

o • • • • 
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8322 DATA " . .0 . . . B.M " 

8323 DATA "R ... .G" 

8324 DATA " . . B .G . R. ..0. " 

8325 DATA " " 

8400 REM data mappa 

8410 DATA 108,5,3,10,8,16,11 ,9,4 

8411 DATA " G .. " 


841 2 

DATA 

".. 0 

• 

. 0 

.G" 

841 3 

DATA 

" .M 

• • 

• • 

ii 

• • • 

841 4 

DATA 

" . . B . . 

• 

#. . 

.R. . n 

841 5 

DATA 

Il 

• 

• • 

ii 

841 6 

DATA 

II 

• • • • • 

• • • 

• • 

. G . . . " 

841 7 

DATA 

II 


• • 

. . . G " 

841 8 

DATA 

"G 



G D. " 

841 9 

DATA 

II 


B . 

ii 

8420 

DATA 

» n 

u • • • 

• G 

.B 

ii 

8421 

DATA 

II 

• • 

GG • 

• 

.M. . . " 

8422 

DATA 

II 

• • 

.D. 

ii 

• • • 

8423 

DATA 

"RG. 


• 

. . 0 . 11 

8424 

DATA 

Il 

• • 

B. 

• 

B . . • " 

8425 

DATA 

" . G 

• • 

R 

n 

• • • 

9999 

PRINT AT 21 

,28 

; 65536-USR 79 


62 
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di Daniele Malavasi 



una produzione 
per SUPERSINC 



HABOV*k« ANO SOfTWABf WFfUSKX 



D iscovogue ha realizzato in antepri- 
ma assoluta COMPUMETER, il pri- 
mo misuratore di distanza computeriz- 
zato senza contatto; questo programma 
vi permetterà di determinare nel più 
preciso ed infallibile dei modi la distan- 
za di un fenomeno rispetto al punto di 
osservazione in cui siete. Il concetto ori- 
ginalissimo posto a base del sistema è 
la constatazione del fatto che se la luce 
si propaga nell’aria alla folle velocità di 
300.000 chilometri al secondo, allora 
una sorgente luminosa che disti anche 
parecchie decine di chilometri da noi 
sarà avvistata dai nostri occhi, in prati- 
ca, istantaneamente (sono in gioco 
grandezze dell’ordine di centimillesimi 
di secondo!!!). 

L’eventuale relativo suono sarà però 
percepito solo dopo un certo tempo, 
visto che il suono ha una velocità di 
propagazione di “soli” 340 metri al se- 
condo, ed è cioè più lento della luce di 
circa 900.000 volte. Avrete allora già 
capito che la distanza dei temporali, dei 
fuochi artificiali, esplosioni ed altri mille 
fenomeni riconducibili in qualche modo 
al concetto immagine-suono può essere 
misurata con la precisione assoluta del 
computer. La sorpresa sarà ancora 
maggiore se vi diciamo che è possibile, 
una volta tanto, utilizzare anche lo 
Spectrum da 16 K inespanso; quindi 
tutti al lavoro, il divertimento è assicu- 
rato. 

Dulcis in fundo: la precisione di misura- 
zione dei fenomeni è addirittura affinata 
al metro (ovviamente riflessi umani per- 
mettendo) e il tempo di conteggio del 
clock è tarato al decimo di secondo, con 
scansione talmente precisa da meritare 
la definizione di “spaccadecimi”. 

Come si usa Compameter 

Visto che le considerazioni da fare sul- 
l’uso del programma sono quasi tutte 
di carattere teorico, all’inizio un mes- 
saggio posto sotto il titolo grafico vi invi- 
terà a consultare la documentazione ori- 
ginale che, nella fattispecie, è appunto 


rappresentata dalle righe che state per 
leggere. 

La determinazione della distanza di un 
fenomeno ottico-sonoro dal punto di os- 
servazione in cui siamo avviene conside- 
rando come infinitamente veloce la pro- 
pagazione della luce nello spazio, e co- 
me determinata invece quella del suo- 
no; questa teoria è estremamente avva- 
lorata dall’altissima differenza dei valori 
chiamati in causa e tra loro comparati, 
i quali determinano errori di misura tal- 
mente piccoli da dover considerare co- 


me componente meno attendibile addi- 
rittura il nostro tempo di reazione ner- 
vosa alla luce. Tutto avviene tramite un 
contatempo, estremamente veloce e 
preciso, da far partire (premendo il ta- 
sto A relativo alla funzione “inizio con- 
teggio”) non appena si avvista il segnale 
luminoso; quindi si deve fermare detto 
contatempo (tramite il tasto S relativo 
alla funzione “arresto conteggio”) non 
appena si sentirà il relativo segnale so- 
noro. Il tempo trascorso, moltiplicato 
per una costante di valore 34, relativa 
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al decimo di secondo (ricordate che il 
suono viaggia a 340 metri al secondo) 
determinerà la distanza in metri della 
sorgente rispetto a voi. Dopo ogni misu- 
razione si può procedere a quella suc- 
cessiva semplicemente azzerando i con- 
tatori (tramite il tasto D relativo alla 
funzione “azzeramento”) e ripetendo le 
operazioni appena esposte. Un esempio 
pratico toglierà ogni tipo di dubbio a chi 
ancora non avesse capito il meccani- 
smo; supponete di voler determinare la 
distanza di un temporale in arrivo: non 
appena vedete un fulmine premete il 
tasto A, poi al boato del relativo tuono 
premete subito S; otterrete così la di- 
stanza del temporale. Altri esempi sa- 
ranno comunque fatti più avanti. Per 
adesso occorre ricordare che sul video 
è costantemente presente un monitor a 
due display, che fornisce in tempo reale 
(tramite bellissimi numerini di tipo digi- 
tale) tutte le misurazioni effettuate. I ta- 
sti da usare sono tre e le indicazioni 
permanentemente mostrate in video 
non dovrebbero far sorgere alcun pro- 
blema pratico. Da precisare che il limite 
massimo di tempo misurabile è 59 se- 
condi e 9 decimi, che corrisponde ad 
una relativa distanza massima determi- 
nabile di 20.366 metri; infatti non cre- 
diamo che sia possibile misurare con 
attendibilità fenomeni distanti più di 
questi parametri, vuoi per il fattore di 
dispersione della luce e del suono, vuoi 
per l’incidenza delle peculiarità del no- 
stro sistema nervoso. E però assoluta- 
mente vero che rispettando questi para- 
metri si ottengono risultati sorprenden- 
temente precisi, al punto che ogni even- 
tuale errore sarà da imputare alla vo- 
stra scarsa velocità di reazione ai feno- 
meni luminosi e/o sonori, o comunque 
a difetti di rilevazione pratica. Da nota- 
re che il meccanismo di conteggio del 
clock non è stato determinato con i soliti 
BEEP o PAUSE, ma attraverso un pre- 
ciso e paziente metodo di assemblaggio 
e di accostamento delle linee della su- 
broutine 1210... 1217, quindi mai come 
in questo caso è indispensabile ricopia- 
re alla lettera i listati, pena un errato 
conteggio del tempo col sorgere imme- 
diato di tolleranze, errori di misura e 
risultati meno attendibili. Pensate che 
per ottenere questa configurazione di 
linee ideale sono stati eseguiti 612 di- 
versi accostamenti. Alla fine abbiamo 
trovato quello che rende il clock un au- 
tentico “spaccadecimi”. 

La pratica 

Con COMPUMETER è possibile realiz- 
zare un numero infinito di misurazioni, 
e sarà la vostra fantasia a trovare quelle 
più insolite ed efficaci. A titolo di esem- 
pio noi vi consigliamo di provare 
con i temporali, misurando la distanza 
tra fulmini e tuoni. Oppure potete pro- 
vare, con la collaborazione di un amico, 
a far brillare qualche fuoco artificiale 
rimasto da fine ’84 e a vedere quanto 
tempo intercorre tra fiammata ed av- 
vertimento della relativa esplosione 


t 

Descrizione del programma 

Linee 

Commento 

LISTATO 1 (sottoprogramma di lancio) 

IO 

inizio del sottoprogramma; dati iniziali; predisposizione vi- 


deo 

11 

dati per il caricamento dei sottoprogrammi successivi 

LISTATO 2 (generatore caratteri) 

90 - 96 

inizio del sottoprogramma; dati iniziali; predisposizione vi- 


deo 

1001 

trasferimento del set di caratteri standard della ROM al- 


l’indirizzo 30000 della RAM 

1010 - 1016 

data-set per la determinazione dei nuovi caratteri grafici 

1099 - 1104 

trasferimento del data-set all’indirizzo 30.000 della RAM 

1105 

messaggio di conferma del trasferimento avvenuto 

LISTATO 3 (n 

taster) 

1 - 100 

inizio del master; dati iniziali; predisposizione video 

510 - 900 

preparazione grafica del video 

1010 - 1099 

routine principale di gestione 

1110 - 1155 

subroutine di azzeramento 

1210 - 1217 

subroutine di conteggio, calcolo e stampa dei tempi e dei 


risultati 

7010 - 7099 

memorizzazione delle variabili stringhe 

8010 - 8061 

data-set per la gestione grafica del video. 


(cercate di postarvi ad una distanza di 
almeno due-trecento metri dal punto di 
esplosione). In mancanza di aggeggi del 
genere potete sempre far piantare un 
grosso puntale ad un amico, tramite un 
martello, e misurare la differenza tra il 
momento in cui il martello tocca il pun- 
tale e il momento in cui udite il rumore 
relativo. 

Battitura e salvataggio 

Occorre procurarsi due cassette: sulla 
prima va salvato innanzitutto il sotto- 
programma di lancio (relativo al listato 
1), tramite l’istruzione SAVE “COMPU- 
METER” LINE 1, da verificare poi con 
il VERIFY ””. Prendete poi la seconda 
cassetta e salvate su questa, tramite 
l’istruzione SAVE “CARATTERI”, il li- 
stato 2, in modo da averla sempre di- 
sponibile in caso di errori e modifiche. 
Date quindi il RUN al generatore carat- 
teri; dopo circa 16 secondi di schermo 
bianco apparirà il messaggio 0 OK, 
1105: 3, che con un beep confermerà 
l’avvenuto trasferimento all’indirizzo 
30000 della RAM del data-set grafico. 
Sulla prima cassetta, quella che già con- 
tiene il sottoprogramma di lancio, salva- 
te poi con l’istruzione SA VE “CARAT- 
TERI” CODE 30000, 1024 il generato- 
re di caratteri, lasciando tra i due FILE 
citati uno spazio di nastro vuoto di circa 
tre o quattro secondi. Il generatore di 
caratteri sarà memorizzato come se- 
quenza di byte in codice macchina, per 
cui andrà verificato tramite VERIFY 
””CODE. Non rimane ora che salvare 
il terzo sottoprogramma (il master rela- 
tivo al listato 3) subito dopo il generato- 
re di caratteri. A tale scopo, una volta 
battuto il listato 3, usate l’istruzione SA- 


VE “MASTER” LINE 1. A questo punto 
dovreste avere una situazione corri- 
spondente a quella mostrata nello sche- 
ma seguente. 



Riavvolgendo il nastro e dando il LOAD 
”” il programma partirà automatica- 
mente dopo circa 48 secondi di carica; 
sul video comparirà il monitor con i due 
display, pronto per le misurazioni. 
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Compumeter 
versione per ZX 
Spectrum 16K/48K 
Listato 1 

sottoprogramma di Lancio 

10 PAPER 0: BORDER 0: CLS : PRINT # 

1 ;AT 0,0; INK 1 ; " {G5 } { 30G3 } 
{SG5>{Gl } {30G3} IG2}" ;AT 0,10; 

INK 6;" COMPUMETER " ; AT 1,5; 

INK 7;" ® 1 984 by DISCOVOGUE " 

11 FOR n=l TO 3: BEEP .1,20: BEEP . 
1,23: BEEP .1,37: NEXT n: 

PAUSE 30: LO AD '"'CODE : LO AD "" 

Compumeter 
versione per ZX 
Spectrum 16K/48K 
Listato 2 

generatore di caratteri 

90 REM { 22G3 j 

9 1 REM COMPUMETER 

92 REM LISTATO 2 

93 REM GENERATORE CARATTERI 

94 REM ® 1984 by DISCOVOGUE 

95 REM 122SG3) 

96 POKE 23562,1 

1001 FOR n = l 5360 TO 163tt3: LET k= 

PEEK n: POKE n+14b40,K: NEXT n 

1010 DATA 16,16,16,16,46,0,48,0,16,16 
,32,0,0,0,0,0,0,0,0,0,16,16,32,0 
,0,0,0,0,0,0,48,0 

1011 DATA 56,68,68,0,68,68,68,56,0,4, 

4.0. 4.4.4.0.56.4.4.56.64.64.64.5 

6.56.4.4.56.4.4.4.56.0. 68.68.56, 

4.4.4.0. 56.64.64.56.4.4.4.56 

1012 DATA 56,64,64,56,68,68,68,56,56, 

4.4.0. 4.4.4.0.56.68.68.56.68.68, 

68.56.56.68.68.56.4.4.4.56.0. 0.1 

6.0. 0.16.16.0 

1013 DATA 254,130,130,254,130,130,130 
,0,252,132,132,254,130,130,254,0 
,254,120,128,128,128,128,254,0,2 

40.136.132.130.130.130.254.0. 254 
,128,128,254, 128,1 z8, 254, 0,254, 1 

28. 128.254. 1 28. 1 28. 1 28.0 

1014 DATA 254,128,128,158,130,130,254 
,0,130,130,130,254,130,130,130,0 
,16,16,16,16,16,16,16,0,14,4,4,1 

32.132.132.252.0. 130.132.1 36.240 
,136,132,130,0,128,128,128,128,1 

28.128.254.0. 254.146.146.146.130 
,130,130,0,242,146,146,146,146,1 

46.158.0 


1015 DATA 254,130,130,130,130,130,254 
,0,254,130,130,254,128,128,128,0 
,254, 130, 130, 146, 138, 134, 254, 0,2 

54.130.130.254.144.144.158.0. 254 
,128,128,254,2,2,254,0,254,16,16 
, 16 , 16 , 16 , 16,0 

1016 DATA 130,130,130,130,130,130,254 
,0, 1 30,130, 68,68,40,40,16,0,1 30, 

130.130.146.146.146.254.0. 130.68 
,40,1 6,40,68,1 30,0, 1 30, 1 30, 1 30, 2 

54.16.16.16.0. 254.2.4.56.64.128, 

254,0 

1099 PASTORE 1010: FOR n=42264 TO 422 
71: READ k: POKE n,k: NEXT n 

1100 FOR n=3031 2 TO 30319: READ k: 

POKE n,k: NEXT n 

1101 FOR n=30352 TO 30359: READ k: 

POKE n,k: NEXT n 

1102 FOR n=3036e TO 30375: READ k: 

POKE n,k: NEXT n 

1103 FOR n=3U384 TO 30471: READ k: 

POKE n, k: NEXT n 

1104 FOR n=30520 TO 30727: READ k: 

POKE n,k: NEXT n 

1105 POKE 23606,48: POKE 23607,117: 

BEEP 1 ,30 

Compumeter 
versione per ZX 
Spectrum 16K/48K 
Listato 3 

programma master 

1 GO TO 10 

8 POKE 23606,0: POKE 23607,60: 

RETURN 

9 POKE 23606,48: POKE 23607,117: 

RETURN 

10 INK 4: PAPER 1: BORDER 1: 

BRIGHT 0: OVER 0: CLS : POKE 23 
658,255: GO SUB 7000 

11 REM i 22G3 } 

1 2 REM COMPUMETER 

13 REM LISTATO 3 

1 4 REM MASTER 

15 REM ® 1984 by DISCOVOGUE 

16 REM (22SG3 j 

17 GO SUB 8: POKE 235e2,l 
100 PRINT AT 21,0; PAPER 0;u$ 

510 PRINT # 1 ; AT 0,0; PAPER 0; INK 1; 
z$ ; AT 1,6; INK 7;"® 1984 by DISC 
OVOGUE" ; AT 0,11; INK 6;"COMPUMET 
ER": GO SUB 9 
530 GO SUB 8000 

535 PRINT AT 4,0; INK 5; "PER LE ISTR 
UZIONI D'USO CONSULTA LA DOCUME 
NTAZIONE ORIGINALE" 

540 DATA 11,12,10,13,9,14,8,15,7: 
RESTORE 540: FOR n=l TO 9: 

READ r: PRINT AT r,0; PAPER 0;u 
$ : FOR m=l 6 TO 20: BEEP .00z,r*2 
.2: NEXT m: NEXT n 
545 INK 7: PLOT 0,48: DRAW 254,0: 

DRAW 0,71: DRAW -254,0: DRAW 0, 
-71 
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54ò 

54 7 

550 

555 

60U 

900 

1010 

1 020 

1099 

1110 

1120 

1129 

1155 

1210 

1 zi 1 

1212 

1214 

1216 

1217 

7010 

7050 

7099 

801 0 

6020 

8055 

8060 

8061 


PLOT 39, 5s: DRAW 177,0: DRAW 0,5 
7: DRAW -177,0: DRAW 0,-57 
FOR n=47 TO 151 STEP 104: PLOT n 
,79: DRAW 57,0: DRAW 0,25: 

DRAW -57,0: DRAW 0,-25: NEXT n 
PAPER 0: PRINT AT 1 3 , 6 ; " SECONDI " 
; AT 13, 20; "METRI": INK 0 
PRINT AT 10,7; INK 4; BRIGHT 1;" 
000:0"; AT 1 0, 20; "00000" 

PRINT AT 17,1; PAPER 1; INK 5; "A 

INIZIA IL CONTEGGIO"; 

AT 18,1 ;"S FERMA IL CO 

NTEGGIO" ; AT 19,1 ;"D 

. . . . AZZERAMENTO" 

INK 4: BRIGHT 1: LET cn=0: LET t 

i=0: LET se=0 : LET lu=0 

LET k=CODE INKEY$: IF k=68 AND c 

n=l THEN GO SUB 1100 

IF k=65 THEN LET cn=l : BEEP .06 

,20: GO SUB 1200 

GO TO 1001 

PRINT AT 10,7; INK 4; BRIGHT 1;" 
000 : 0" ; AT 1 0 , 20 ; " 00000" 

BEEP .06,40: LET cn=0 

LET ti=0: LET se=0: LET lu=0 

RETURN 

LET ti=ti+l: LET lu=iu+34 

IF ti>9 THEN LET ti=0: LET se=s 

e+1 

IF se>59 THEN BEEP .06,30: 
RETURN 

PRINT AT 10,11 ;ti;AT 10,10-LEN 
STR$ se ; se ; AT 10,25-LEN STRS lu; 
lu 
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LET k=CODE INKEYS : IF k=b3 
THEN BEEP .06,30: RETURN 
GO TO 1210 
LET u$=" 

II 

LET z$ = " {G5 > 19G3J 
1 9G3 } {SG5} {Gl } { 4G3 } 
i 4G3 } {G2 } " 

RETURN 

LET r = 0 : LET c=3: INK 6 
PRINT AT r ,c;" {2SG3}{G4} lSG3j 
{SG7} {3SG3} {G4j 1SG3} 12SG7} {2G4} 

{ 2SG3 HSG7H 2SG3 } tG5} {SG3 j {SG7} 
{zSG3j{G4}{SG3}";AT r+l,c;" 

{SG5} IG5 } {3SG5} {2G5} 12SG5} 

{ 3G5} ISG5}{SG1 }{SG2){G5i 
iSGl } {SG2 } {G5 } " ; AT r+2,c;" tSGl } 
{SG3} {G5HSG3} 13SG5) {2G5} {SG3} 
{SG5}{SG1 }{SG2}{2G5} {SG5}{SGl} 
{SG3 } {G5 } { SG3 } {SG7 } {SGl }{SG3j 
{G5 j " ; AT r+j,c+8; " tGl }" 

PRINT AT 11,8; INK 7; "FERMA IL 
NASTRO" 

FOR n=l TO 2: FOR m=7 TO 1 
STEP -1: PRINT AT 11,0; OVER 1; 
INK m;u$: FOR g=10 TO 40 STEP 1 
0: BEEP .01,g: NEXT g: NEXT m: 
NEXT n 

PAUSE 10: RETURN 


Non esiste, in tingila italiana, un libro di testo cosi. Chiaro, completo, 
moderno, ma anche rigoroso e didattico. Sono alcuni tra gli aggettivi 
che costituiscono la prerogativa di questo volume. Per capire 
l’elettronica digitale bisogna avere delle solide conoscenze sui dispositivi 
a semiconduttore, soprattutto usati in circuiti di commutazione. 

E malgrado quest’analisi richieda una notevole complessità matematica, 
introducendo alcune semplificazioni è possibile mantenere la trattazione 
ugualmente rigorosa e ottenere approssimazioni pienamente accettabili. 
Come trascurare poi gli amplificatori operazionali, che. se a rigore non 
rientrerebbero nella materia, però trovano larga applicazione in sistemi 
completamente digitali. E poi i circuiti integrati, finalmente spiegati e 
analizzati in tutti i loro aspetti. Dalla vecchia logica resistore-transistor 
(RTL), funzionale nella sua semplicità all’esemplificazione degli aspetti 
fondamentali, a quella a simmetria completamente (CMOS) 

Questo, però, dopo aver studiato un capitolo che. pur non richiedendo 
alcuna conoscenza preliminare, va a fondo dei concetti di variabile 
logiche, di algebra di Boote, di analisi di circuiti logiqi. E ancora. Via via 
nei vari capitoli: i flip-flop, i registri, e i contatori (sia sincroni che , 
asincroni), i circuiti logici atti ad eseguire operazioni matematiche, le 
memorie a semiconduttore (RAM, ROM, EPRQM, ....), l’interfacciamento 
tra segnali analogici e digitali (multiplexer, circuiti sample and hold, .... 
convertitori d/a e a/d), i temporizzatori. Tutto con oltre 400 problemi, dai 
più semplici ai più sofisticati, in cui vengono presentati i circuiti tipici 
che si trovano nella pratica. 

Un testo quindi non solo per gli specialisti e per gli studenti universitari, 
ma che si adatta magnificamente agli Istituti Tecnici. 

Un testo che, speriamo per gli studenti, la scuola non debba scoprire tra 
alcuni anni. 


SOMMARIO 

Dispositivi Elettronici fondamentali: AMplificatori Operazionali e 
Comparatori; Circuiti Logici: Logica Resistore-Transistore e Logica ad 
Iniezione Integrata; Logica Diodo-Transistore; Logica Transistore- 
Transistore. Logica ad Accoppiamento di Emettitore; Porte MOS; I 
Flip-Flop; Registri e Contatori; Operazioni Aritmetiche; Memorie a 
Semiconduttore; Interruttori Analogici; Conversione Analogico- 
Digitale; Circuiti di Temporizzazione; Linee di Trasmissione; Problemi; 
Alcuni Esempi di Specifiche. 
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D opo l’era dei videogame “puri” 
sembra giunto il momento di massi- 
ma popolarità dei giochi d’azione non 
solo d’impulso scassa-joystick, ma an- 
che un tantino meditati: SUPERCON- 
FUSION è proprio concepito sulla base 
di queste nuove esigenze, e pertanto 
richiede anche buone capacità tattiche, 
oltre che la pur sempre indispensabile 
prontezza di riflessi. Il programma occu- 
pa oltre 35 Kbyte di memoria, motivo 
per cui girerà solo su Spectrum 48K o 
su altri Spectrum comunque adeguata- 
mente espansi. Da segnalare la possibi- 
lità di scelta aggiornabile tra tastiera e 
joystick Kempston. 


di Daniele Malavasi 

— - y* 

ll,l<PWI MO SOmMMK O 0TVSK3H 

Una produzione 
per SUPERSINC 


Strategia di gioco 

SUPERCONFUSION è un “classico” 
game da giocare soli contro il computer 
che, oltre al brivido della dinamica, ag- 
giunge anche l’originalità delle situazio- 
ni: infatti le istruzioni del gioco avvise- 
ranno subito che si viene chiamati a di- 
fendere la propria città da un improvvi- 
so ed imprevisto attacco nucleare sfer- 
rato a sorpresa da nemici che, essendo 
tatticamente e tecnologicamente supe- 
riori, pregiudicano a priori la riuscita 
della vostra missione, nel senso che tutti 
gli sforzi e le tattiche adottate non riu- 
sciranno comunque, a lungo andare, ad 
evitare scene tipiche del “day after”. 
Ciò perché si devono difendere moltissi- 
mi obiettivi datici in custodia, che sono 
proprio i bersagli dei nemici. Questi 
obiettivi, suddivisi in otto categorie, sa- 
ranno l’argomento di altrettanti round: 
razzi antibomba, missili antiaerei, missili 
telecomandati, testate a media gittata, 
testate a lunga gittata, vettori ultrasoni- 
ci, sistemi radar e rifugi antiatomici. Si 
capisce già che i più importanti da sal- 
vare sono i rifugi, che infatti compari- 
ranno solo nell’ultimo degli otto round 
previsti e saranno purtroppo l’ultima 
speranza di prolungare la vostra eroica 
performance. 

A conforto della missione viene tuttavia 
fornito in dotazione un cannone LA- 
SER, potente, ma molto limitato relati- 
vamente alla dotazione bellica dei nemi- 
ci. Inoltre è l’unico disponibile, per cui 
non va assolutamente perso, pena la 
fine del gioco (e della città). Gli obiettivi 
nemici da controllare e da eliminare so- 


no: triple testate atomiche, che mirano 
esclusivamente a colpire i bersagli che 
dobbiamo difendere e cadendo dal cielo 
cercano di arrivare sulla città; vanno 
eliminate col laser prima che possano 
colpire i bersagli. Poi ci sono i missili 
antilaser, normali, se celesti, o superve- 
loci (e quindi ancor più pericolosi), se di 
colore giallo, che escono dalle loro po- 
stazioni aeree e cercano di distruggere 
il laser di cui si è dotati. Unico e deter- 
minante modo di sfuggire ai loro attac- 
chi è quello di spostare il cannone laser 
dalla posizione in cui si trova affinché 
gli antilaser non vedendo più sulla loro 
traiettoria detto cannone ritornino, sep- 
pur temporaneamente, alla loro base. 
Un monitor di controllo in tempo reale 
segnala se i missili sono fuori dalla base 
(scritta OUT), se sono vicini al cannone 
(scritta NEAR) o se addirittura sono a 
tal punto vicini (luce rossa lampeggian- 


te) che, se non spostato immediatamen- 
te, il cannone laser verrebbe inevitabil- 
mente distrutto. 1 missili antilaser sono 
comunque visibili anche fisicamente e 
senza far riferimento al monitor, ma le 
esperienze di collaudo ci obbligano ad 
avvisare che sarà tanta la confusione e 
la tensione di azione che l’occhio sarà 
portato a consultare i soli punti essen- 
ziali di riferimento, che sono appunto le 
scritte del monitor e le testate che cado- 
no dal cielo. Ogni round presuppone la 
difesa di otto bersagli uguali, che se col- 
piti tutti causano il passaggio ad un al- 
tro gruppo di bersagli (e quindi ad un 
altro round), fino ad arrivare alla pateti- 
ca difesa dei rifugi antiatomici e quindi 
alla catastrofe. Il più bravo non sarà 
allora un vincitore, ma colui che riesce 
a “tener duro” il più possibile, realizzan- 
do più punti attraverso l’eliminazione 
del maggior numero di armi nemiche. 
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All’inizio di ogni missione è possibile 
scegliere se manovrare il cannone laser 
o tramite tastiera (1 su, Q giù, 0 sparo) 
oppure con il joystick Kempston (posi- 
zione superiore su, posizione inferiore 
giù, tasto di FIRE per lo sparo). È anche 
possibile rivedere ogni volta le istruzioni 
di gioco, prima di cominciare una mis- 
sione. Alla fine c’è anche l’aggiorna- 
mento del record eventualmente miglio- 
rato. Attenti che le testate nemiche arri- 
vano a terra con crescente frequenza, 
man mano che si perdono bersagli colpi- 
ti. L’importante comunque è non la- 
sciarsi prendere dal panico e giocare la 
propria sorte il più decorosamente ed 
efficacemente possibile, in modo da mo- 
rire da eroi. 

Battitura e salvataggio 

Il programma va salvato su una casset- 
ta in modo da ottenere due FILE conse- 
cutivi. Il risultato finale dovrà corrispon- 
dere alla seguente situazione: 



Innanzitutto si deve battere il listato 1 
(sottoprogramma di lancio) e salvarlo 
su detta cassetta tramite l’istruzione 
SA VE “SUPERCONF.” LINE 1; quindi 
si esegue la verifica dell’esatto carica- 
mento col solito VERIFY. Si può poi 
procedere a battere il listato 2 (che co- 
stituisce il programma master), il quale 
è di una certa lunghezza (42 videate) e 
richiederà un po’ di pazienza. Alla fine 
della battitura si procederà al salvatag- 
gio su cassetta, tramite l’istruzione SA- 
VE “SUPERCONF.” LINE 1. Questo 
secondo FILE andrà sistemato in cas- 
setta in modo che sia separato dal pre- 
cedente da uno spazio di nastro vuoto 
di circa tre-quattro secondi. 

Alla fine si potrà riavvolgere il tutto e, 
tramite il comando LOAD””, si cariche- 
rà il programma per la verifica pratica. 
Il video, dopo circa 190 secondi di cari- 
ca, mostrerà la scritta “FERMA IL NA- 
STRO” e quindi, dopo varie operazioni 
di predisposizione grafica, chiederà 
l’opzione preferita (gioco con tastiera 
Spectrum, gioco con joystick Kemp- 
ston, oppure visione delle istruzioni di 
gioco). 


Linee 


Commento 


SOTTOPROGRAMMA DI LANCIO (LISTATO 1) 

10 - 16 inizio del sottoprogramma; predisposizione video 

17 data set per il caricamento del FILE successivo 

MASTER (LISTATO 2) 

10 - 29 inizio del sottoprogramma; dati preliminari; predisposizio- 

ne video 

30 - 34 preparazione grafica della struttura video 

51 - 110 organizzazione delle variabili di gioco e delle matrici di 

controllo 

155 - 175 routine di scelta delle opzioni disponibili 

210 - 360 istruzioni di gioco 

451 - 474 opzione con uso del joystick Kempston 

476 - 490 opzione con uso della tastiera dello Spectrum 

499 - 505 determinazione del campo di gioco 

1010 - 1099 routine principale di gestione del gioco 

2005 - 2099 subroutine di controllo della posizione del cannone laser 

2110 - 2199 subroutine di stampa del cannone laser 

2211 - 2399 subroutine di stampa del raggio laser, dei missili antilaser 

e delle triple testate atomiche 

3004 - 3040 subroutine di scelta casuale condizionata della caduta del 
le triple testate atomiche 

3070 - 3099 subroutine di stampa delle triple testate atomiche 
3110 - 3149 subroutine di CLS del campo d’azione 

3910 - 3999 stampa della scritta del titolo del gioco 

4005 - 4099 aggiornamento e stampa del punteggio 
5010 - 5099 subroutine di gestione dei missili antilaser 

7010 - 7099 stampa della scritta “TRY ANOTHER ROUND” 

7122 - 7460 stampa della scritta “GAME OVER”; fine del gioco 

7605 - 7630 disegno dei rifugi anti-atomici (ottavo round) 

7658 - 7680 disegno dei sistemi radar (settimo round) 

7708 - 7730 disegno delle testate a media gittata (quarto round) 

7758 - 7780 disegno dei missili telecomandati (terzo round) 

7808 — 7830 disegno dei missili antiaerei (secondo round) 

7858 - 7880 disegno dei razzi antibomba (primo round) 

7908 - 7980 disegno dei vettori ultrasonici (sesto round) 

8014 - 8031 definizione ed inserimento dei caratteri grafici UDG 

8108 - 8180 disegno delle testate a lunga gittata (quinto round) 

8202 - 8299 sequenza dell’esplosione del bersaglio colpito 

8329 - 8350 aggiornamento e stampa dell’eventuale record 

8415 - 8499 analisi della posizione dei missili antilaser 

9211 - 9290 data set del disegno del campo di gioco 

9310 - 9410 subroutine di aggiornamento delle variabili 

9460 - 9462 prima subroutine di CLS parziale del video 

9510 — 9512 seconda subroutine di CLS parziale del video 

9560 - 9563 subroutine di resettaggio dei valori delle matrici di controllo 

9610 - 9611 disegno della piattaforma dei bersagli 

9710 - 9718 preparazione grafica dei soggetti di gioco 

9810 - 9899 stampa del punteggio resettato 

9920 - 9990 disegno della tabella di aggiornamento dei ROUND 


Descrizione del programma 

Il programma è composto di due file consecutivi; il primo b il sottoprogramma di 
lancio, mentre il secondo è il master che contiene il gioco vero e proprio. Con 
riferimento ai rispettivi listati 1 e 2 vediamo ora le caratteristiche delle routine e 
delle linee di struttura. 


Superconfusion 

versione per ZX Spectrum 48K 

Listato 1 

sottoprogramma di lancio 

10 REM 122G3; 

1 1 REM SUPERCONFUSION 

12 REM LISTATO 1 

13 REM SOTTOPROGR. DI LANCIO 

14 REM ® 1S«4 by DISCOVOGUE 

15 REM { 22SG3 } 


lb PAPER 0: BORDER 0: CLS : PRINT * 
1;AT 0,0; INK 1 ; » {G5 } { 30G3 } 
ISG5MG1 H30G3} {G2 }" ;AT 1,5; 

INK 7;" ® 19«4 Dy DISCOVOGUE " 


17 PRINT # 1 ; AT 0,«; INK 6;" SUPERCO 
NFUSION FOR n=l TO 3: BEEP .1 
,20: BEEP .1,23: BEEP .1,37: 

NEXT n: PAUSE 30: LOAD "" 
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Superconfusion 

versione per ZX Spectrum 48K 

Listato 2 

programma master 


10 REM 1 22G3 ) 

1 1 REM SUPERCONFUSION 

12 REM LISTATO 2 

1 3 REM MASTER 

14 REM » 1*64 by DISCOVOGUE 

1 3 REM { 22SG3 ) 

lb BORDER 0: PAPER 0: INK 6: 

BR1GHT 1: CLS : POKE 23362,1 

27 LET K=ò : LET 3 = 1 : PRINT AT K,J;" 
{SG4) {G2} (SG4} {G2}'{SG4} { G7 } {Gb} 
{SG7} (SG2} (Gb) (G7) {2SG5} {Gb} 

{ SGb ) {SG4} {SGb} {SG4} (G2} {G7} 

{G2 } tSG4 }{G7}{Gb}{G7}" ; AT K+l , J; 
" {SGl } {SG7} {SGl } { SG7 } { SGl } {SG2} 
{Gb ) { 2G7 ) {Gb} { SG2 } {2SGb} { Gb } 
{SGl } t SGb) {SGl } {SGb) {SGl } {SG7j 
{Gb) (SGl } {SG2} {2Gb}" ;AT K+2,J;" 
{SGb} {SGb} { 2SGb } {Gb } {3G5} 

{ 2SG3 } { 2Gb } { 3SGb } {SGb}{Gb} 

{2SG5} {2Gb}" ; AT K+3,J;"{SGb} 

{SGl } {SG7 } {SGb} {SGl } { G 5 } {3Gb} 

{SGb} {SGl } {SG7} {G5 } {3SG5}{SG3} 
{SG5 } {Gb } {SGb) tSGl } )G5} {SG2}" 

26 PRINT AT K+b,J; INK 2; PAPER 3; 

FLASH 1 ; " {26SG6}" 

29 FOR N= 1 TO lb: BEEP .01,20: 

NEXT N: GO SUB 6000: CLS 

60 DATA 0, 2, 4, b, 6, 10, 12, 14, 16, 16, 20 
,2^,24,26,26,60,0,28,30,16,28,16 
,30,16,26,16,30,20,26,20,30: 

RESTORE 30: INK 2: GO SUB b900 

31 FOR N=1 TO 16: READ R: PRINT 

AT 2 , R; "RS" ; AT 3,R;"TU": NEXT N 

32 FOR N= 1 TO 3: READ R: PRINT AT 4 
,R;"RS" ;AT 5,R;"TU" : NEXT N 

33 FOR N=6 TO 14 STEP 2:: PRINT 
AT N , R ; " RS " ; AT N+l ,R;"TU": 

NEXT N 

34 FOR N= 1 TO 6: READ A: READ Z: 

PRINT AT A, Z; "RS" ; AT A+l , Z; "TU" 
: NEXT N 

bl INK 0: BRIGHT 0: DIM All 6,27) 

66 DIM B (27 ) : FOR N=1 TO 27: LET B( 
N) =b: NEXT N 

67 DIM C ( 2 7 ) 

66 DIM R ( 1 6) : FOR N=1 TO 18: LET R( 
N) =27 : NEXT N 

69 DATA 5,4,6,7,3,6,7,760,775,770,8 
10,790,765,760: DIM 1(8,2): 

RESTORE 69: FOR T=1 TO 2: FOR P 
=2 TO 8: READ S: LET I(P,T)=S: 

NEXT P: NEXT T 

110 LET HI =0 : LET HIX = 30: LET IM=7 
155 PRINT AT 8,3; INK 6; PAPER 2; 

FLASH 1; BRIGHT 1 ; " 1" : 

PRINT AT 8,5; INK 5;" KEMPS 

TON JOYSTICK" 


136 PRINT AT 11,3; INK 6; PAPER 2; 
FLASH 1; BRIGHT 1;"2": 

PRINT AT 11,3; INK 5;".... TAST 
IERA SPECTRUM" 


1 67 PRINT AT 14,3; INK 2; PAPER 6; 
FLASH 1; BRIGHT 1;"3": 

PRINT AT 14,3; INK 5;" 

.. ISTRUZIONI" 


171 

BEEP .05 

, 40: 

BEEP .05,50: 

LET 

F = 


CODE INKEY$ 




172 

IF F = 4 9 

THEN 

BEEP .6,45: 




GO SUB 

9300: 

LET U=1 : GO 

TO 

4b0 

1/3 

IF F= 5U 

THEN 

BEEP .3,45: 




GO SUB 

5300 : 

LET U=2 : GO 

TO 

475 

174 

tO 

il 

M 

THEN 

BEEP .3,45: 




GO SUB 

9300: 

GO TO 210 




175 GO TO 171 

210 PRINT AT b , b ; FLASH 1; INK 4; 

BRIGHT 1;" MESSAGGIO URGENTE " 
: FOR N= 1 TO 4: BEEP .06,30: 

BEEP .1,20: BEEP .2,25: NEXT N: 
PAUSE 30 

211 INK b: PRINT AT 7,0;" Sei stato 
chiamato a difen-": GO SUB 7450 

212 PRINT " dere la tua citta' da un 

im-": GO SUB 7430 


213 PRINT " provviso attacco nuclear 
e.": GO SUB 7450 

214 PRINT " La missione e' destinata 

al": GO SUB 7450 

213 PRINT " fallimento a causa della 
su-": GO SUB 7430 


21 b PRINT " periorita' del nemico, m 
a tu": GO SUB 7450 


217 PRINT " devi ugualmente protegge 
re i": GO SUB 7450: PRINT " segu 
enti obiettivi:": GO SUB 7430 

218 FOR N= 1 TO 20: BEEP .06,-10: 

BEEP .17,-33: NEXT N: PAUSE 40: 

GO SUB 9300: BRIGHT 1: GO SUB 9 
bOO 

219 PRINT AT 14,7; INK PAPER b; 

FLASH 1 ; " 1 " : PRINT AT 14,9; 

INK 7; "RAZZI ANTI BOMBA" : LET IM 
=7: GO SUB 7830: GO SUB 3100 

220 PRINT AT 14,6; INK 2; PAPER 6; 

FLASH 1 ; "2" : PRINT AT 14,6; 

INK 7; "MISSILI ANTIAEREI": 

LET IM=5: GO SUB 7800: GO SUB 3 
1 00 

221 PRINT AT 14,4; INK 2; PAPER 6; 

FLASH 1 ; " 3" : PRINT AT 14,6; 

INK 7; "MISSILI TELECOMANDATI" : 

LET IM=4 : GO SUB 7750: GO SUB 3 
1 00 

222 PRINT AT 14,3; INK 2; PAPER 6; 

FLASH 1 ; " 4 " : PRINT AT 14,5; 

INK 7; "TESTATE A MEDIA GITTATA" 
: LET IM=6 : GO SUB 7700: 

GO SUB 3100 

223 PRINT AT 14,3; INK 2; PAPER 6; 

FLASH 1 ; " 5 " : PRINT AT 14,5; 
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INK 7; "TESTATE A LUNGA GITTATA" 

: LET IM=7 : GO SUB 8100: 

GO SUB 3100 

224 PRINT AT 14,5; INK 2; PAPER 6; 

FLASH 1 ; " 6" : PRINT AT 14,7; 

INK 7; "VETTORI ULTRASONICI": 

LET IM=5: GO SUB 7900: GO SUB 3 
10U 

225 PRINT AT 14,8; INK 2; PAPER 6; 

FLASH 1 ; " 7 " : PRINT AT 14,10 
; INK 7; "SISTEMI RADAR": LET IM= 
6: GO SUB 7650: GO SUB 3100 

226 PRINT AT 14,5; INK 2; PAPER 6; 

FLASH 1 ; " 8 " : PRINT AT 14,7; 

INK 7; "RIFUGI ANTI- ATOMICI" : 

LET IM=7: GO SUB 7600: GO SUB 3 
100 

230 BRIGHT 0: FOR N=1 TO 10: BEEP .0 
3,-10: BEEP .17,-35: NEXT N: 
PRINT AT 21,3;" 

" : PAUSE 40 

235 PRINT AT 6,7; INK 7 ; "EF" : FOR N = 
10 TO Ib STEP 3: BEEP .06,N: 

NEXT N: PAUSE 30 

236 INK 5: PRINT questo e' il LA 

SER che ti ": GO SUB /4 50 

237 PRINT " servirà' per distruggere 

i": GO SUB 7450 

258 PRINT " nemici. Puoi usarlo solo 
da": GO SUB 7450 

239 PRINT " fermo. Fai attenzione a 
non": GO SUB 7450 

240 PRINT " perderlo, perche' e' l'u 
nica": GO SUB 7450 

241 PRINT " arma che possiamo darti. 

": GO SUB 7450 

300 BRIGHT 0: FOR N=1 ^0 *0: BEEP .0 
3,-10: BEEP .17,-35: NEXT N: 
PAUSE 40: GO SUB 9500 
306 PRINT AT 5,6; FLASH 1; INK 4; 

BRIGHT 1;" OBIETTIVI NEMICI ": 
FOR N=1 TO 4: BEEP .06,30: 

BEEP .1,20: BEEP .2,25: NEXT N: 
PAUSE 30 

310 PRINT AT 9,1; BRIGHT 1; INK 3;"H 
I_": FOR N = 1 0 TO 16 STEP 3: 

BEEP . 06 , N : NEXT N: PAUSE 30 

311 PRINT AT 9,4;"tnple testate ato 
micne": GO SUB 7450: PAUSE 30 

312 PRINT AT 11,2; INK 5;"K": FOR N= 
10 TO 16 STEP 5: BEEP .06,N: 

NEXT N: PAUSE 30 

313 PRINT AT 1 1 , 4 ; "antilaser " : 

GO SUB 7450: PAUSE 30 

314 PRINT AT 13,2; INK 6; BRIGHT 1;" 
K": FOR N=1 0 TO 16 STEP 3: 

BEEP . 06 , N : NEXT N: PAUSE 30 

315 PRINT AT 1 3 , 4 ; "antilaser uitrave 
loci": GO SUB 7450: PAUSE 30 

316 BRIGHT 0: FOR N=1 TO 20: BEEP .0 
3,-10: BEEP .17,-35: NEXT N: 

PAUSE 70: GO SUB 9500 

317 PRINT AT 5,4; FLASH 1; INK 4; 

BRIGHT 1;" MONITOR DI CONTROLLO 



": FOR N=1 TO 4: BEEP .06,30: 
BEEP .1,20: BEEP .2,25: NEXT N: 
PAUSE 30 


330 PRINT AT 7,1; INK 7;"PQ": FOR N= 

10 TO Ib STEP 3: BEEP .0b,N: 

NEXT N: PAUSE 30 

331 PRINT AT 7, 4; "gii antilaser sono 

stati";AT 8 , 4 ;" lanciati" : 

GO SUB 7450: PAUSE 30 

332 PRINT AT 10,1; INK 7; "NO": FOR N 
=10 TO 16 STEP 3: BEEP .0b,N: 

NEXT N: PAUSE 30 

333 PRINT AT I0,4;"gli antilaser ti 
sono";AT ll,4;"ormai vicinissimi 
": GO SUB 7450: PAUSE 30 

334 PRINT AT 13,1; PAPER 0; INK 2; 

BRIGHT 1; FLASH 1;" ": 

FOR N= 1 0 TO lb STEP j : BEEP .0b 
, N : NEXT N: PAUSE 30 

335 PRINT AT I3,4;"gli antilaser ti 
colpi-" ;AT 14, 4; "ranno se ti fer 
merai";AT 15,4;"sulla loro traie 
ttoriu": GO SUB 7450: PAUSE 30 

360 BRIGHT 0: FOR N=1 TO 20: BEEP .0 
3,-10: BEEP .17,-35: NEXT N: 

PAUSE 70: GO SUB 9500: GO TO 15 
5 

451 PRINT AT 5,5; FLASH 1; INK 3; 

BRIGHT 1;" KEMPSTON JOYSTICK 

": FOR N=1 TO 4: BEEP .06,30: 

BEEP .1,20: BEEP .2,25 : NEXT N: 

PAUSE 30 

4bl INK b: PLOT 84,43: DRAW 71,0: 

DRAW 0 , b4 : DRAW -71,0: DRAW 0,- 
b4 : PLOT 86,94: DRAW 11,0: 

DRAW 0,11: DRAW -11,0: DRAW 0 , - 

1 1 

4o2 PLOT 105,75: DRAW 18,0: DRAW 0,- 
1 8 : DRAW 1,0: DRAW 0,18: DRAW 1 8 
,0: DRAW 0,1: DRAW -18,0: DRAW 0 
,18: DRAW -1,0: DRAW 0,-18: 

DRAW -18,0 

463 PLOT 126,77: DRAW 7,7: DRAW -1,1 
: DRAW -7,-7: DRAw -3,0: DRAW -7 
, 7 : DRAW -1,-1: DRAW 7,-7: 

DRAW 0,-3: DRAW -7,-7: DRAW 1 , - 
1 : DRAW 7,7: DRAW 3,0: DRAW 7,-7 
: DRAW 1,1: DRAW -7,7 

464 PLOT 1 1 4 , 6b : DRAW 19,19: PLOT 13 
3,66: DRAW -19,19: PLOT 114,81: 

DRAW -1,1: DRAW 0,4: DRAW 4,0: 

DRAW 1,-1: PLOT 133,81: DRAW 1, 
1: DRAW 0,4: DRAW -4,0: DRAW -1 , 
-1: PLOT 133,70: DRAW 1,-1: 

DRAW 0,-4: DRAW -4,0: DRAW -1,1 
: PLOT 114,70: DRAW -1,-1: 

DRAW 0,-4: DRAW 4,0: DRAW 1 , 1 
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465 PLOT 120,90: DRAW 0,1: DRAW 3,3: 
DRAw 1,0: DRAW 3,-3: DRAW 0,-1: 
PLOT 136,79: DRAW 1,0: DRAW 3,- 
3: DRAW 0,-1: DRAW -3,-3: DRAW - 
1,0: PLOT 1 20 , b 1 : DRAW 0,-1: 

DRAW 3,-3: DRAW 1,0: DRAW 3,3: 
DRAW 0,1: PLOT 109,79: DRAW -1 , 
0 : DRAW -3,-3: DRAW 0,-1: DRAW 3 
, - 3 : DRAW 1 , 0 

4ob DATA 10,13,10,17,12,12,12,16,14, 
13,14,17,9,11 ,9,15,15,13 
4ò7 RESTORE 4bb: POR N=1 TO 6: 

READ DD: READ SS: PRINT AT DD,S 
S; PAPER 2;" ": NEXT N: FOR N=1 
TO 3: READ DD: READ SS: PRINT 
AT DD , SS ; INK 2; PAPER 4; 

BRIGHT 1; FLASH 1;" ": NEXT N 

473 FOR N= 1 TO 20: BEEP .03,-10: 

BEEP . 1 7 , - J 5 : NEXT N: PAUSE 70 

474 GO TO 499 

47 b PRINT AT 5,5; FLASH 1; INK 3; 

BRIGHT 1;" TASTIERA SPECTRUM " 
: FOR N= 1 TO 4: BEEP .0b,30: 

BEEP .1,20: BEEP .2,25: NEXT N: 
PÀUSE 30 

480 PRINT AT 6,2; INK 2; PAPER b; 
FLASH 1 ; BRIGHT 1 ; " 1 " : 

PRINT AT 8,4; INK 5;" pe 

r andare in su" 

461 PRINT AT 10,2; INK 2; PAPER 6; 
FLASH 1; BRIGHT 1;"0": 

PRINT AT 10,4; INK 5;" per 

andare in ■jiu 1 " 

482 PRINT AT 13,2; INK b; PAPER 2; 
FLASH 1; BRIGHT 1;"0": 

PRINT AT 13,4; INK 5;".. per az 
ionare il laser" 

490 FOR N= 1 TO 20: BEEP .03,-10: 

.BEEP .17,-35: NEXT N: PAUSE 70 
499 GO SUB 9500: INK 0: BRIGHT 0 
505 GO SUB 9300: GO SUB 9400: 

GO SUB 9200: GO SUB 9600: 

GO SUB 7850: GO SUB 9700: 

GO SUB 9800: GO SUB 9900 
1010 GO SUB 3000: GO SUB 5000: 

GO SUB 2000: GO SUB 2200: 

GO SUB 3000 
1099 GO TO 1001 

2005 IF U=1 THEN : LET K = IN 31 
2U0b IF U=2 THEN LET K=CODE INKEY$ 

2011 IF K=49 OR K=6 THEN LET RI=RI-1 
: LET R=RI+1 : GO TO 2020 

2012 IF K=81 OR K=113 OR K=4 THEN 

LET RI=RI+1 : LET R=RI-1: 

GO TO 2020 
2015 RETURN 

2020 IF RI< 7 THEN LET RI = 7 

2021 IF RI > 1 4 THEN LET RI =14 
2060 GO SUB 2100 

2099 RETURN 

2110 PRINT AT R , 1 ; " " ; AT RI , 1 ; INK 7 

; "EF" 

2199 RETURN 

2211 IF K=48 OR K=lb THEN GO TO 2214 


2212 RETURN 

2230 INK 2: PLOT 26 , (21 -RI ) * 6+3 : 

DRAW BRIGHT 1;187,0: BEEP .01, 
35 

2242 INK 0: PLOT 26 , (2 1 -RI ) * 6+3 : 

DRAW 187,0 

2245 PRINT AT RR , RC ; INK IR; BRIGHT L 
R; "K" 

2250 FOR N=4 TO 25 STEP 3 

2251 iF A (RI , N) = 1 THEN PRINT AT RI,N 

; INK 7; BRIGHT 1;"GG": BEEP .02 
,45: PRINT AT RI , N; " " : PRINT 

AT 5,N; INK 3; BRIGHT 1 ; "HI" : 

LET B (N) =5: LET A(RI,N)=0: 

LET SC=SC + 1 0 : GO SUB 4000 

2252 NEXT N 

2255 PRINT AT RR , RC ; " " 

2399 RETURN 

3004 LET BC=4+3* INT (RND*8) 

3005 IF C ( BC ) = 1 THEN GO TO 3004 

3006 LET B(BC) =B (BC) +2 
3010 LET BR=B (BC ) 

3030 LET A (BR-2,BC) =0 
3032 LET A(BR,BC)=1 

3040 IF BR>1 5 THEN PRINT AT 15,BC;" 

" : LET B ( BC ) = 5 : GO SUB o200: 
RETURN 

30 70 PRINT AT BR- 2 , BC ; " " 

3072 PRINT AT BR , BC ; INK 3; BRIGHT 1; 
"HI_" 

3099 RETURN 

3110 FOR N= 1 TO 6: BEEP .1,0: NEXT N 

3111 PAUSE 70 

3120 FOR N= 1 4 TO 20: PRINT AT N,0;" 

NEXT N " : 

3149 RETURN 

3910 PRINT AT 0,9; PAPER 4; INK 0; 

BRIGHT 1; FLASH 1 ; "SUPERCONFUSI 
ON" 

3920 PRINT #1; INK 1 ;AT 0,0;"(G5} 

{ 30G3 } {SG5 } iGl }{ 30G3 ){G2 } " ; AT 1, 
5; INK 7;" © 1984 by DISCOVOGUE 

II 

3999 RETURN 

4005 IF SC >999999 THEN LET MU=8: 

GO SUB 8262 

4009 IF SC<10 THEN LET SCX=8 

4010 IF SC>=10 AND SC<100 THEN LET S 
CX=7 

4011 IF SC>=100 AND SC<1000 THEN 

LET SCX=b 

4012 IF SC>=1000 AND SCC10000 THEN 

LET SCX= 5 

4013 IF SC>=10000 AND SCC100000 

THEN LET SCX=4 

4014 IF SC>=1 00000 THEN LET SCX=3 

4049 FOR D=3 TO SCX-1: PRINT AT 0,D; 

PAPER 1; INK 7 ; " 0" : NEXT D 

4050 PRINT AT 0,SCX; INK 7; PAPER 1;S 
C 

4099 RETURN 

5010 LET RR=RI 

5011 IF RI<=8 OR RI >=1 3 THEN LET IN= 
6: LET IR=b: LET LR=1 
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5012 IF RI>b AND RI<13 THEN LET IN = 3 
: LET IR=b: LET LR=0 
bUli LET R(RR) =R(RR) -IN 
501 4 LET RC=R (RR) 

501 d 1F RC>2 AND RC<27 THEN PRINT 

AT RR/RC+IN; " " ; AT RR,RC; INK IR 
; BRIGHT LR ; " K" : GO SUB &400 
5u 24 GO SUB 2000 
5025 IF klORR AND RC>2 THEN 

PRINT AT RR,RC; INK 7; BRIGHT 1 
; "G" : BEEP .02,55: PRINT AT RR,R 
C;" " ; AT RR, 27 ; INK IR; BRIGHT L 
R;" K": LET R(RR)=27 

5031 IF RI =RR AND RC<3 THEN GO SUB V 
200: LET MU = 8: GO SUB 8262 

5032 IF RI =RR AND RC = d THEN GO SUB b 
400 

5034 GO SUB 220U 

5035 IF RC>2 THEN PRINT AT RR , RC ; " " 

5059 RETURN 

7010 INK 0: BRIGHT 1 

7020 PRINT AT 6 , 4 ; " tG5 } " ; AT 6,1 d;" 

{ SG5 1 {SG5 } " ; AT 7 , 4 ; " (G5 } {G3 } 

{ G 5 } {G3 } { 2G5 J 1G3 } ISG5 }{ SG4 } 
{SG5} {SG4} tSG5} tSG4HG2}{SG4) 
(SGbi {SG4) {SG5} {SG4} {G2 j" ; AT 6,4 
;"{G5) IG5} i G 1 > t G 7 1 {SG4 ) 

l bSG5 ) 1 2SG5 } t SG4 } tG2} t SG5 j " ; 

AT 5,4;”{Gl HG3}{GH tGl}{G3j 
IG3}{3G2} 1G3}{G2}{G3H3G2}ÌG3} 

{ 2G2 j " 

7021 PRINT AT 11,19;" {SG5 ) " ; AT 12,10; 
" ÌSG3 H SG7 1 { SG3 ) t 3SG7 j t SG3 j 
(SG7 HSGjHSG5)" ;AT 13,10;" 

{SGb; { dSG5 ; " ; AT 1 4 , 1 0 ; "'tSG5 } 
{SGl i 1SG5; 1 SG 1 } 1 3SG5HSG1 } {SG5}" 

70o0 GO SUB 7400 
7090 INK 0: BRIGHT 0 
7099 RETURN 

7122 INK 5: PRINT AT 9 , 3 ; " tSG4 } {G7 } 
{SG5j t SG4 1 1 G7 } { SG5 } 1 2SG4 } {SG5} 
{SGdMG3HG2HG5HG3}iSGb} IG5} 
{SG5} {2G5} tSG4} {G3} tG5}{SG4} 

{G7 } " 

7123 PRINT AT 1 0, 3 ; " {SG5} ISG3 } {SG7} 

{ SGl }{SG2H4SG5HSGditSG3}{SG7} 

{ G5 } tSGb} {G5} {SG5} {2G5HSG1 } 
lSG3}{G5j{SGl } 1SG2}" 

7124 PRINT AT 1 1 , 3 ; " ISG5 }{G4 } { 2SG5 } 
{G4 ) { 2SG5 j {G4 } {SG5} {SGb> {G5} 
{G7j{G5j {SG5} {SG2} 1G5} {SG5j 
{G5 ) { 2SG5 } " 

7125 PRINT AT 1 2 , 3 ; " (SGl } {SG2 ){ 2SG5 } 
{G5 } { 2SG5 }{G5)tSG5}{SGb}{SG3} 
{SG7} IG5HSG3} {SG2} tGl }{SG8) 
{G2}tG5}{SGl ì {SG3} { G 5 } {SG5j 
{SGl }" 

7180 GO SUB 7300 

7190 INK 0: BRIGHT 0: RETURN 

7204 PRINT AT RI , 3 ; " " 

7205 DATA l,3,2,b,5,7,5,o,^,B,l,3,2,b 
,3,7 

720b RESTORE 7205 



7210 FOK N=2d TO 10 STEP -1 


7211 READ H: PRINT AT RI , 1 ; INK H; 

BRIGHT 1;"GG": BEEP .Ul,N: 

BEEP . 02 , N- 1 : PRINT AT Ri , 1 ; " 

": BEEP .001,50 

7212 NEXT N: kETURN 

7310 FOR N=25 TO 0 STEP -2 
7 B 1 1 BEEP . 02 , N : BEEP .00b,4d: BEEP . 

0^ , N- 4 : NEXT N: RETURN 
7410 FOK N= 1 TO 4: BEEP .3,z: NEXT N: 
RETURN 

74 bO BEEP .3,^5: RETURN 
7b0s INK IM 

7bOb FOR X=oz TO ^00 STEP 24 
7o 1 0 PLOT X , 1 3 : DRArt 0,23: DRAN 2,0: 
DRAN 1,1: DRAw 0,4: DRAW 1 , 0 : 

DRArt 1,1: DRAW 0,3: DRAW -1,1: 
DRAW 1,-1: DRAW 1,1: PLOT X+b,4 
2 : DRAW 1,1: DRAW 1,0: DRAW 1,1: 
DRAW 1,0: DRAW 1,1: DRaW 0,1: 
DRAW 4,0: DRAw 1,-1: DRAW 1,0: 
DRAW 1,-1: DRAW 1,0: DRAW 0,-15 

7611 PLOT X+4 , 3b : DRAW 1,0: DRAW 1,1: 

DRAW 0,1: uRAW 1,0: DRaW 1,1: 
DRAW 1,0: DRAvm 1,1: DRAw 2,0: 
DRAw -1,-1: DRAW 0,-13: DRAW -1 
, u : DRAW -1,-1: DRAW -1,0: 

DRAW -1,-1: DRAW -1,0: DRAW 0 , - 
9: DRAW 1,-1: DRAw 1,0: DRAW 1,1 
: DRAw l,o: DRAW 1,1: DRAW 3,0: 
DRAw 0,12: DRAW -1,0: DRAW -1,- 

1 

7612 PLOT X+13,45: DRAw 0,-3: DRAW -1 
,0: DRAW z,-2: URAW 1,0: DRAWl, 
- 1 : DRAW 0,-7 

7bl 3 FOR ii=2o TO 32 STEP 3: PLOT X+2, 
M: DRAW 1,0: FOR N=1 TO 3: 

DRAW 1,1: DRAW 1,0: NEXT N: 

NEXT M: PLOT X+2, 23: DRAw 1,0: 
DRAW 1,1: DRAW 1,0: PLOT X+2, 20 
: DRAW 1,0: DRAw 1,1: DRAW 1 , 0 

7614 PLOT X+b ,19: DRAW 1,0: DRAW 0,1: 

DRAW -1,0: PLOT X+b, 23: DRAW 1, 
0: DRAW 0,1: DRAW -1,0: PLOT X+l 
1,21: DRAW 1,0: DRAW 0,1: DRAW - 
1,0: PLOT X+11,25: DRAW 1,0: 

DRAW 0,1: URAW -1,0: PLOT X+2,1 
4: DRAW 0,5: DRAW 1,0: DRAW 2,-2 

7615 PLOT X+l, 13: DRAW b,0: DRAW 1,1: 

DRAW 7,0: DRAW 0,3: DRAW 1,1: 
DRAW 0,9: DRAW -1,-1: DRAW 0,1: 
DRAW -1,1: DRAW 0,1: DRAW -1,1: 
PLOT X+4, 14: DRAW 3,0: PLOT X+l 
1,16: PLOT X+l 4, 15: DRAW 0,1: 

DRAW 1,1: DRAW 1,0: PLOT X+l 9,1 
6 : DRAW 1 , 0 
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7b 1 b PLOT X , 9 : ORAW z , U : ORAW 1,1: 

DRAW 1,0: DRAW 1,1: ORAW 4,0: 

ORAW 1,1: DRAW 3 , 0 : ORAW 1,-1: 

DRAW 1,0: DRAW 1,-1: DRAW 2,0: 

DRAW 1,1: DRAw 1,0: DRAw 1,1: 

DRAW 1,0: DRAW 1,1: DRAW 0,5: 

DRAW -1,0: DRAW 0,1: DRAW -1,1: 

DRAW -2,-2 

7617 PLOT X+l 7, 13: DRAW 3,0: DRAW 1,1 
: DRAW 1,0: PLOT X+22,2l: DRAW - 
1,1: DRAW -1,0: DRAw -1,-1: 

DRAW 1,1: DRAW 0,o: DRAW -1,0 

7o3o NEXT X: INK u: RETURN 

7b58 INK IM: FOR X=32 TO 200 STEP 24 

7òb0 PLOT X+z,13: DRAW 10,0: DRAW 0,1 
: DRAW 1,0: DRAW 0,2: DRAW -1,-1 
: DRAW -2,0: DRAW 0,-1: DRAW -4, 

0 : DRAW 0,2: DRAW 1,0: DRAW 0,-1 
: DRAW 1,0: DRAW 0,2: DRAW -2,2 

7bb 1 DRAW -1,0: DRAW 0,-2: DRAW -1,-1 
: DRAW 0,-z: PLOT X+1,14: DRAW - 
1,1: DRAW 0,2: DRAW 1,1: DRAW 1 , 
- 1 : DRaW -1,1: DRAW 0 , 1 : DRAW 1 , 

1 : DRAW 1,0: DRAW -1,0: DRAW u , z 
: DRAW 1,1: DRAW 2,-2: DRAW 0,-1 
: DRAW 1,1: DRAW 2,-2: DRAW 0,-1 
: DRAw 1,1: DRAw I , 0 

7bò2 DRAW 0,-3: DRAW -1,0: DRAW 0,1: 

DRAw 2,0: DRAW 0,1: DRAW 1 , o : 

DRAW 1,1: DRAW 2,0: DRAW 2,2: 

DRAW 2,0: DRAW 0,1: DRAW 1,0: 

DRAW 0,1: DRAW 1,1: DRAW 0,7: 

DRAW -1,1: DRAW 0,1: DRAW -1,1: 

DRAW 0,2: DRAW -1,1 

7663 DraW 0,2: DRAW -1,0: DRAW 0,1: 

DRAW -4,4: DRAW -1,0: DRAW -1,1 
: DRAW -5,0: DRAW -4,-4: DRAW 1 , 
0: DRAW -1,-1: DRAW -1,0: DRAW 0 
, - 2 : DRAW 1,1: DRAW 0,-7: DRAW 1 
, - 1 i DRAW 0,-1: DRAW -1,-1: 

DRAW 0,-1: DRAW -1,-1: DRAW - 1 , 
1 : DRAW 0 , 9 

7bb4 PLOT X+2,26: DRAW 1,-1: DRhw 0, - 
1 : DRAW 1,-1: DRAW 1,1: DRAW 1 , 0 
: DRAW 4,-4: PLOT X+5,2y: DRAW 0 
, - 2 : DRAW 5,-5: DRAW 1,0: DRAW 1 
, - 1 : DRAW 2,0: DRAW 0,-1: DRAW 2 
, 0 

7665 PLOT X+l 3 , 2z : DRAW -3,3: DRAW 0, 
1 : DRAW -1,1: DRAW 0,1: DRAW 1 , 0 
: DRAW 1,1: DRAW 1,0: DRAW 0,-1: 

DRAW 1,0: DRAW 1,-1: DRAW 4,0: 

DRAw 1,1: DRAW 2 , 0 

7bb6 PLOT X+13,30: DRAW 2,2: DRAW 1,0 
: DRAW 6 , b : DRAW -1,0: DRAw 1,1: 

DRAW -3,0: DRAW -1,-1: DRAw -1, 
0 : DRAW -1,-1: DRAw -1,0: DRAW - 
1,-1: DRAW -1,0: DRAW -1,-1: 

DRAW -1,0: DRAW -1,-1: DRAW - 2 , 
0: DRAW -1,-1: DRAW -1,0: DRAW 0 
, - 2 : DRAW -1,0: DRAW 1,0: DRAW 0 
, 5 : DRAW 1,1: DRAW 0,3: DRAW 1 , 1 
: DRAW 0,1: DRAW 1,1: DRAW 0 , 1 


76b7 PLOT X+ll,3b: DRAW 1,1: DRAw 0,1 
: DRAw 1,1: DRAW 0,1: DRAW 1,1: 

DRAw 0,1: PLOT X+7,29: DR^W 1,0 
: DRAW -1,1: DRrtW 1 , U : DRAw 1,1: 

DRAW 1,0: DRAW o,3: DRAw 1,0: 

DRAw 1,1: DRAw 1,0: DRAw 1,1: 

DRAW 1 , 0 

7bbo PLOT X+2,35: DRAW 4,4: DRAw d,0: 

DRAw 1,-1: DRAW 1,0: DRAW 1,-1: 

PLOT X+lb,31: DRAW 0,-5: DRAW - 
3,-3: PLOT X+b,28: DRAW 1,-1: 

DRAw 1,0: PLOT X+4,12: DRAW b,0 

7btì0 NEXT X: INK 0: RETURN 

770ò INK IH: FOR X=32 TO 200 STEP z4 

7710 PLOT X+l , 1 b : DRAW 0,-4: DRAW 1,- 
1 : DRAw 0,13: DRAW 1,1: DRAW 0 , - 
lb: DRAW 0,1: DRAW 2,2: DRAW 0,7 
: DRAW 1,0: DRAW 0,2: DRAW 1,1: 

DRAW 0,-2: DRAW 1,1: DRAW 0,-1: 

DRAW 1,-1: DRAW 0,-7: DRAW -1,- 
1: DRAw 0 , b : DRAW -2,-2 

7711 DRAW 1,0: DRAW 0,-9: DRAW 0,2: 

DRAW -1,1: DRAW 0,2: PLOT X+ll , 
1 1 : DRAW 0,2: DRAw -1,0: DRAW 2 , 
0: DRAW 1,1: DRAW 0,4: DRAw -1,0 
: DRAw 0,-4: DRAW -1,0: DRAw 0 , 1 
3: DRAw 1,-1 

7712 DRAw 0,-7: PLOT X+4,22: DRAW 0,2 
: DRAw 1,0: DRAW 2,2: DRAW 3,-3: 

DRAW 0,-1: DRAW 0,2: DRAW -3,3: 

DRAW -2,-2: DRAW 0,1: DRAW 2,2: 

DRAW 3,-3: DRAW 0,9: PLOT X+9,2 
7: DRAW 0,15: PLOT X+ò,2b: 

DRAw 0,17: DRAw -1,1: DRAW 0,1: 

DRAw 0,-1 b 

7/13 PLOT X+b,2b: DRAW 0,5: DRAW -1 ,- 
1: DRAW 0,-1: PLOT X+4,2d: 

DRAW 0,7: DRAW 1,0: DRAW 0,4: 

DRAW 1,0: DRAW 0,1: DRAW -1,0: 

DRAW 0 , J : DRAW 1,0: DRAW 0,3 

7714 PLOT X+l, 19: DRAW 0,5: PLOT X+l 3 
,19: DRAw U , 5 

7730 NEXT X: INK 0: RETURN 

7758 INK IM: FOR X=32 TO 200 STEP 24 
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77b0 PLOT X+l, 12: DRAW 12,0: DRAW -1, 
1: DRAW -2,0: DRAW 1,1: DRAW -7, 
0: DRAW 0,-1: DRAw -2,0: DRAW 2, 
2: DRAW b,0: DRAW 0,1: DRAW -b,0 
: DRAW 0,2: DRAW b , 0 : DRAW 0,-1: 

DRAW 0,2: DRAW -b,0: DRAW 0,2: 

DRAW b , 0 : DRAW 0,-1: DRAW 0,2: 

DRAW - b , 0 : DRAw 0,1 3: DRAW 1,-2 
: DRAW 0,5: DRAW 1,-1: DRAW 0,7: 

DRAW 1 , 0 

7761 DRAW 0,3: DRAW 0,-24: DRAW -1,0: 

DRAW 0,3: DRAW -1,1: DRAW 1,0: 

DRAW 0,1: DRAW -1,1: DRAW 1,0: 

DRAW 0,3: PLOT X+8,10: DRAW z,0 
: DRAw 0,1: DRAW -2,0: PLOT X+9, 
10: DRAW 2,0: DRAW 0,1: DRAW -2, 
0 

7 7 b 2 PLOT X+10,35: DRAW 0,-12: DRAW - 
2,0: DRAW 0,21: PLOT X+9,24: 

DRAW 0,14 

7760 NEXT X: INK 0: RETURN 
7808 INK IM: FOR X=32 TO 200 STEP 24 
7el 0 PLOT X+4,13: DRAW -1,0: DRAW 0,- 
3: DRAw 1,0: DRAW 0,2: DRAw 3,0: 

DRAW 0,-2: DRAW 0,1: DRAW 1,1: 

DRAw 8,0: DRAW 0,-2: DRAW -1,0: 

DRAw 0,2: DRAW 1,1: DRAW -1,0: 

DRAW 0,1: DRAW -b,0: DRAW 0,s: 

DRAW 1,0: DRAW 0,1: DRAW -1,0: 

DRAW 0 , b : DRAW 1,0: DRaW 0,-8: 

DRAw 1,-1: DRAw' 0,-1 
7bl 1 PLOT X+b , 1 b : DRAW 2,0: DRAW 0,3: 

DRAW -1,0: DRAW 0,-2: DRAW 1,0: 

DRAw 0,30: DRAW 0,-1: DRAW -1,- 
1 : DRAW 0,-8: DRAW - 2 , 0 : DRAW 0 , 
- 1 : dkàw 1,0: DRAW 0 , - b : DRAW 1 , 
0: DRAW 0,-1 

7bl 2 PLuT X+b , : URAW 0,1: PLOT X+8, 
Ib: DRAW 0,29: PLOT X+9,lb: 

DRAw 0,21: DRAw 1,0: DRAW 0,-1: 

PLOT X+ 1 0 , 1 5 : DRAW 0,11 
7ò30 NEXT X: iNK 0: RETURN 
785b INK IM: FOR X=3/ TO 200 STEP 24 
7db0 PLOT X+2,11: DRAW 0,1: DRAW 3,0: 

DRAW 1,-1: DRAW 0,-1: DRAW 3,0: 

DRAW 0,1: DRAW 1,1: DRAW 3,0: 

DRAw 0,-1: PLOT X+4,13: DRAW 1, 
0 : DRAW -1,1: DRAW 7,0: DRAW 0 , - 
1: DRAW -1,0: DRAW 0,2: DRAW -5, 
0 

7ttb 1 PLOT X+b , 1 b : DRAw 0,?b: DRAW 1,1 
: DRAW 1,0: DRAW -1,-1: DRAW 1,0 
: DRAW 0,-14: DRAW 1,0: DRAW 0,1 
4: PLOT X+7,37: PLOT X+7,lb: 

DRAW 0,16 

7bb2 FOR N=17 TO 27 STEP 2: PLOT X+5, 
N: DRAW b,0: NEXT W 
7ob0 NEXT X: iNK 0: RETURN 
790b INK IM: FOR X=32 TO 200 STEP 24 
7910 PLOT X , 1 b : DRAW 0,1b: PLOT X+1,1 
1: DRAW 0,4: PLOT X+l,2d: DRAW 0 
,9: PLOT X+2,12: DRAW 1,-1: 

DRaW 0,1: DRAW 1,0: DRAW 1,-1: 

DRAw 0,1: DRAW 1,0: DRAW 0,15: 

DRAW -1,0: DRAW 0,-12: DRAW -1 , 


i 



0 : DRAW 0,11 

7911 PLOT X+3 , 1 b : DRAw 0,-1: DRAW -1, 
0: DRAW 0,12: DRAw 1,0: DRAW 0,2 
: DRAw 1,1: DRAW 0,-2: DRAW 1,1: 

DRAW 0,-1 

7912 PLOT X+2,30: DRAW 0,1: DRAW 1,0: 

DRAW 0,2: DRAW 1,-1: DRAW 0,5: 
DRAW 1,0: DRAW 0,b: DRAW -1,0: 
DRAW 0,-2: DRAW -1,1: DRAW 0,-3 
: DRAW -1,2: DRAW 0,-6 

7913 PLOT X+b, 34: DRAW 0,-3: DRAW 1,- 
1: DRAW 0 , b : PLOT X+7,28: DRAW 0 
,12: DRAW -1,-1: PLOT X+7,47: 

DRAw 0,-3: DRAw -1,0: DRAW 0,-2 
: DRAW 2,2: DRAW 0,-1 4: DRAW 1,- 
1: DRAW 0,-1: DRAW -1,-1: DRAW 0 
, - 1 5 : DRAW 1,-1: DRAW 0,1: 

DRAW 1,0: DRAW 1,-1: DRAW 0,1: 
DRAW 2,0: DRAW 0,-1: DRAW 0 , 4 
791+ DRAW 1,1: DRaw 0,1s: DRAW -3,0: 

DRAW 1,-1: DRAW 1,0: DRAW 0,-2: 
DRAW -1,-1: DRAW 0,-1 2: DRAW -3 
,0: DRAW 0,2: DRAW 1,-1: DRAW 0, 
12: DRAw 1,0: DRAW 0,-11: DRAW - 
2,2: DRAw 0,1: PLOT X+9,24 
7915 PLOT X+3,^: DRAw 0,1: PLOT X+l 1 
, 2b : DRAW 0,1: DRAw -1,0: DRAW o 
,1: DRAW -1,1: DRAw 0,b: DRAW 4, 
0: DRAW 0,-b: DRAW -3,0: DRAW 0, 
2 : DRAW 1,1: DRAW 0,1: DRAW 1,0: 
DRAW 0,-3: DRAW -1,0: DRAW 0,1 
7 9 1 b PLOT X+l 1 , 1 b : PLOT X+12,3b: 

DRAw -2,0: DRAW 0,2: DRAW -1,0: 
DRAW 0,2: DRAW 1,0: DRAW 0,-1: 
DRAw 1,0: URAW 0,-2: DRAW 1,0: 
DRAW 0 , 1 

79b0 NEXT X: INK 0: RETURN 
oO 1 4 DATA 15, 30, 2 d 2, 184, 184, 252, 30, 15 
,255,0,240,127,127,2+0,0,255,129 
,100,3b,13b,+0,5o,9,b8,b2,bz,115 
,115, Ila, 33, 33, 33, 148, 1+8,1 56, 15 
b,lbb, b, 8, 8,1 8 7, 40, 78,48,1 65, 7 7, 
Ib, 250, 0,0, 7, 60,255,60,7, 0,1, 3,1 
1 ,3,1 1 ,102,lb9,0,0,0,lb0,lb+,194 
,66,196,0,0,0,151,212,188,160,15 

1. 0. 0. 0. 119.85. 119, bb, db, 0,0, 0,5 

8. 42. 42. 42. 59. 0. 0, 0,184, 144, 144, 
1 4+ , 1 4+ , 0 

boi 5 DATA zbb, 192, IbO, 144, 186,132, 130 
,129,255,3,5,9,17,33,65,129,129, 

1 30, 1 82, 1 8o, 1 44, 1 b0, 1 92,255,1 29, 
65,33,17,9,5,8,255 

8031 RESTORE 601 4: FOR N=USR "E" TO 
USR " U" + 7: READ F: POKE N , F : 

NEXT N: RETURN 

8100 INK IM: FOR X=32 TO 200 STEP 24 
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bl lo 
61 1 1 


bl 1 2 


bl l o 


bl 1 4 


bl 1 b 


bl lb 


bl òu 
ozO/ 
82U5 

0210 

0211 


b2 1 2 
Ozio 


0214 
b21 5 


6z 1 o 
8217 


b21 o 
821 9 


PLOT X/ 1 2 : URAW 0,10: DRAW 1,0: 

DRAW 0,-4: PLOT X+l , 1 2 
PLOT X+2,13: DRAw 0,12: DRAW 1,- 
1: DRAW 0,11: PLOT X+3,14: 

PLOT X+3 , 1 8 : DRAW 0,1 
PLOT X+4,12: DRAW 1,1: DRAW 0,3: 

DRAW -1,0: DRAW 0,9: PLOT X+b, 1 
8: DRAW 0,16: DRAW -1,1: DRAW 0, 
6: PLOT X+b, 40: DRAW 0,2 
PLOT X+b, 17: DRAW 0,23: DRAW 1,1 
: DRAW 0,6: DRAW 0,-1: DRAW - 1 , - 
1: DRAw 0,-1: DRAW -1,0: DRAW 0, 
-4 

PLOT X+7,12: DRAW 0,3: DRAW 1,-1 
: PLOT X+7,18: DRAW 0,13: PLOT X 
+6,17: DRAW 0,28: PLOT X+9,lb: 
DRAW 0,-4: DRAw 2,0: DRAW -1,1: 
DRAW 0,1 

PLOT X+9 , 1 b : DRAW 0,2: PLOT X+9, 
2b : DRAW 0,19: DRAW 0,-1: DRAW 1 
, - 1 : DRAW 0,-24: PLOT X+l 1,1 2: 

PLOT X+l 1 , 1 b : DRAW 0,20: PLOT X 
+12,13: DRAW 0,12 

PLOT X+ 1 3 , 1 4 : DRAw 0,-2: DRAW 1 , 
0: DRAW 0,10: DRAW -1,1: DRAW 0, 
-b 

NEXT X: INK 0: RETURN 
LLT C ( BC ) = 1 

FOR N= 1 6 TO 20: PRINT AT N,BC;" 

": NEXT N 
LET Y =BC * b 

INK 7: PLOT Y+9,33: DRAW -1,-1: 
DRAw -1,0: DRAW 0,-2: DRAW 1,1: 
PLOT Y+9,29 
BEEP .07,-30 

INK b: PLOT Y+b,2«: DRAW 0,1: 
DRAW 2,2: DRAW 1,0: PLOT Y+4,31 
: DRAW 1 , 0 
BEEP . 07,-3 J 

INK 7: PLOT Y+j,3b: DRAW 1,0: 
DRAw 1,-1: DRAW 1,0: DRAW -1,-1 
: PLOT Y+9 , 3b : DRAW 2,-2: DRAW 1 
,0: DRAW -1,-1: PLOT Y+4,30: 

PLOT Y+6,29: DRAW 0,-1: PLOT Y+ 
b , 2b : DRAW 1,0: PLOT Y+4,24: 

PLOT Y+9,29: PLOT Y+12,29: 

PLOT Y+9, 26: DRAW 1,-1: DRAW 1, 
0 : DRAW 1,-1 
BEEP .08, -3b 

INK 6: PLOT Y+b,37: DRAW 0,1: 

DRAW - 1 , U : DRAW 0,2: PLOT Y+8,3 
b : URAW 0,1: DRAW 1,1: DRAW 0,1: 

PLOT Y + 1 1 , J 7 : DRAW 1,0: DRAW 0, 
1: PLOT Y+ 1 3 , 2b : DRAW 1,0: 

PLOT Y+7,24: PLOT Y+3,2l: 

PLOT Y+l , 2b : DRAW 2,2: PLOT Y+4 
,31 : DRAW 1 ,0 
BEEP .08,-39 

INK 7: PLOT Y+6,42: DRAW -3,3: 
PLOT Y+l 0,46: PLOT Y+l 2, 41: 

DRAW 1,3: PLOT Y+9, 22: DRAW 1,0 
: URAW 2,-2: PLOT Y+6,20: DRAW - 
1,-1: DRAW 0,-1: PLOT Y+l,lb: 
PLOT Y+l, 33: DRaW -1,0 


8220 BEEP .08,-42 

b230 FOR N= 1 6 TO 20: PRINT AT N,BC;” 
": NEXT N 

82sz PRINT AT 20 , Y/b ; INK IM;"LM" 
bz b0 INK 0: LET KI=M1-1 : IF MI = 0 
THEN GO TO 6262 
6261 RETURN 
82 bz LET MU =MU + 1 

8263 IF MU< 9 THEN PRINT AT 20,1; 

INK 7 ; MU 

8264 IF MU=9 THEN PRINT AT 20,1;" " 
82 7 z IF MU < 9 THEN LET IM=I (MU , 1 ) : 

GO SUB 9500: GO SUB 7000: 

GO SUB 9sb0 : GO SUB 9400: 

GO SUB I (MU , 2 ) * 1 0 : GO SUB 94 50: 
GO SUB 9700 

82b0 IF MU=9 THEN LET IM=7: GO SUB 9 
500: GO SUB 7100: GO SUB 9550: 
FOR N= 1 b TO 21: PRINT AT N,0;" 

Il . 

NEXT N: FOR N=4 TO 5: PRINT 
AT N , 2 ; " 

" : NEXT N: FOR N=6 TO lb: 

PRINT AT N , 0 ; " 

": NEXT N: GO SUB 6 
300: PAUSE 20: BEEP .2,30: 

PAUSE 20: GO TO 151 

8299 RETURN 

832y IF SC<=HI THEN PRINT AT 0,3; 
PAPER 1; INK 7 ; " 0 0 0 0 0 0 " : 

RETURN 

8330 LET HI=SC: LET HIX=SCX+23 
833.9 DATA 4, 2, 6, 7, 1,5, 4, 6, 2,1 

6340 BRIGHT 1: FOR A=1 TO 3: 

RESTORE 8339: FOR C=1 TO 10: 
READ AA: PRINT AT 0,2o; PAPER A 
A; INK 7 ; " i f T 1 1 1 " : BEEP .01,50: 
NEXT C: NEXT A: 

6341 BRIGHT 0: PRINT AT 0,3; PAPER 1; 

INK 7; "000000": BEEP .4,40 
8342 PRINT AT 0,2b; PAPER 1; INK 7 ; " 0 
00000" 

8 jbo PRiNT AT 0,HIX; INK 7; PAPER 1 ;H 
1: BEEP .4,40: RETURN 
6415 IF RC >=15 THEN PRiNT AT RI, 27; 
INK 7;" Py" 

84z0 IF RC>3 AND RC<15 THEN PRINT 
AT RI, 27; INK 7; "NO" 

842a IF RC=3 THEN PRINT AT RI, 27; 

BRIGHT 1; FLASH 1; PAPER z;" 

II 

8499 RETURN 

9211 INK 4: PLOT 2,50: DRAw 19,0: 

DRAW 0,3: DRAW -lb,0: DRAW 0,b9 
: DRAW 1 b , 0 : DRAW 0,16: DRAW- 197 
,0: DRAW 0,-16: DRAW 16,0: 

DRAW Ù,-b9: DRAW -16,0: DRAW 0, 
-3: DRAW 19,0 

9212 DRAW 0,75: DRAW -16,0: DRAW 0,lb 
: DRAW -203,0: DRAW 0,-lb: 

DRAw -16,0: DRAW 0,-75 
9290 INK 0: RETURN 
9 j 10 LET SC=0 : LET MU=1 : RETURN 
9410 LET MI=8 : LET RI=11: RETURN 
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94bO 
9<ib 1 

94b2 
951 0 
951 1 

9512 

9bòu 

9561 

9562 
9565 


9bl U 

961 1 

971 0 

971 1 
971 2 


971 6 
971 4 


971 5 
971 b 


9717 
971 « 

9òl 0 


9650 

9699 

9920 


99.SU 


999U 


FOR N= 5 TO 


FOR N = 7 TO 


b: PRINT AT N , 3 ; " 
NEXT N 
1%: PRINT AT N , 1 ; " 


NEXT U 

PRINT AT 15,5;" 

RETURN 

FOR N=5 TO 6: PRINT AT N,3;" 

NEXT N 


FOR N=7 TO 14: PRINT AT N,l;" 

» . 


NEXT N 

FOR N= 1 5 TO 20: PRINT AT N,3;" 

NEXT N: 


RETURN 

FOR N=4 TO 25 STEP a: LET C(N)=U 
: NEXT N 

FOR N=4 TO 25 STEP s : LET B(N)=5 
: NEXT N 

FOR N=7 TO 14: LET R(N)=27: 

NEXT N 


FOR R=7 TO 14: FOR C=4 TO 25 
STEP 3: LET A(R,C)=0: NEXT C: 
NEXT R: RETURN 


INK 6: PRINT AT 21 , ; " JJJJJJJJJJ 

JJJJJJJJJJJJJ " 

PRINT AT 21 ,3;" {G5}" ;AT 21,27;" 
ISG5}": INK 0: RETURN 
PRINT AT 11,1; iNK 7 ; "EF" : 

BEEP .1,0 

FOR N=4 TO 25 STEP 3 

PRINT AT 5 , N ; INK 3; BRIGHT 1 ; "H 

I_": BEEP . 01, 3u: bEEP .01,35: 

BEEP .01,40: NEXT N 
FOR N=7 TO b 

PRINT AT N , 2 o ; INK 6; tìRIGHT 1 ; " 
K": BEEP .01,20: BEEP .01,25: 

BEEP .01,30: NEXT N 
FOR N=9 TO 12 

PRINT AT N , 26 ; INK 3;"K": BEEP . 
01,20: BEEP .01,25: BEEP .01,30: 
NEXT N 

FOR N= 1 3 TO 14 

PRINT AT N,2a; INK b; BRIGHI 1 1 ; " 
K": BbEP .01,20: BEEP .01, 2o: 

BEEP .01,30: NEXT N: RETURN 
IF HI =0 THEN PRINT AT 0,0; 

INK 7; PAPER 1 ; "SC 000000" ;AT 0 
, 23 ; "HI OOOUOU" 

PRINT AT 20,1; INK 7; 1 
RETURN 

INK b: PLOT 6,1: DRAW 6,0: 

DRAW 7,7: DRAW' 0,23: DRAW -7,7: 
DRAw -6,0: DKAw -7,-7: DRAW 0,- 
23: DRAW 7,-7 

PLOT 3 , 2E : DRAw 0,2: ORA* 2,0: 
PLOT 7,22: DRAW 0,2: DRAW 2,0: 
DRAW 0,-2: DRAW -2,0: PLOT 11,2 
4: DRAW 0,-2: DRAW 2,0: DRAW 0,2 
: PLOT 15,22: DRAW 0,2: DRAW 2 , 0 
: DRAW 0,-2: PLOT 20,24: DRAW -1 
,0: DRAW 0,-2: DRAW 2,0: DRAW 0, 
5 

INK 0: RETURN 


FIN EDICOLA 
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di Andrew Turner 

trad e adatt. 

di Angelo Motta 



A vventura su Marte è un gioco che 
riempirà totalmente il vostro ZX81 
16K e vi terrà impegnati per diverse 
ore, sia per l’inserimento del program- 
ma, notevolmente lungo, sia per il gioco 
vero e proprio che, grazie alle varie op- 
zioni offerte con l’utilizzo della funzione 
RND, vi garantirà una continua suspen- 
ce. Siete stati inviati sul pianeta Marte 
alla ricerca della “pietra incantata”, cu- 
stodita da un pericoloso mostro che vi- 
ve nelle caverne del pianeta. 

Voi dovete avventurarvi in tali caverne 
(84 per l’esattezza, disposte su tre livelli 
da 28 ciascuno) e, evitando tutte le insi- 
die nascoste (rappresentate da fanta- 
smi, marziani, folletti, serpenti ed or- 
chi), dovrete raggiungere la tana del 
mostro, situata nel terzo livello, corrom- 
pere il guardiano, uccidere il mostro, 
prendere la pietra e fare ritorno al pri- 
mo livello per cercare l’uscita dove si 
trova la vostra astronave, che vi riporte- 
rà sulla terra. 

In alcune caverne troverete dell’oro che 
dovrete raccogliere e che vi servirà per 
corrompere il guardiano della tana del 
mostro (minimo 6000 pezzi d’oro). 

Al primo livello potrete trovare un anel- 
lo magico che vi renderà invisibile, ma 
non avrà efficacia nei confronti dei mar- 
ziani e del mostro. 

La pietra incantata vi proteggerà inve- 
ce da tutte le insidie. 

Il listato è talmente lungo, e come già 
detto riempie totalmente l’espansione 
da 16K, che, purtroppo, ha come incon- 


veniente il riaggiornamento del conte- 
nuto delle caverne di un livello ogni vol- 
ta che si proviene da un altro livello, in 


quanto utilizzare una matrice con una 
dimensione in più avrebbe comportato 
problemi in memoria. 


Avventura su Marte 

versione per ZX 81 - 16K 


’ld® REM 


Ri " 'FUTI 


il® LET RRKaO 
ISO LET RING»® 
130 LET LEUal 
140 LET ORO»® 
150 LET X » 1 
160 LET Y » 1 
170 GOSUB 9900 
13® SLOUI 


Pfl 


•Il HhPTP 


190 PRINT RT 0,0; "************* 
******************** LE CflUE 

RNE DI MARTE ************** 

*******************" 

200 PRINT RT 10 ,3; "UUOI LE ISTR 
UZIONI? (S/N) " 

210 IF INKEY $»”N" THEN GOTO 500 
220 IF INKEY $a"S" THEN GOSUB 93 
00 

230 GOTO 210 
500 LET X * 1 
510 LET Y » 1 
520 LET LEU» 1 
550 LET Da (X*4) *2 


60 SUPERSINC® 2/85 


560 LET A»(Y#4)-a 

565 GOSUB 9500 

5?0 PRINT RT D,A;"#" 

580 FOR 1*1 TO 50 
590 NEXT I 

610 IF L(X,Y)*1 THEN GOTO 2000 
620 IF L(X.Y)*2 THEN GOSUB 2500 

630 IF L (X .Y) =3 THEN GOSUB 3000 

64.0 IF L ( X • Y ) «4- THEN GOSUB 3500 

650 IF L (X . Y) =5 THEN GOSUB 4.000 

660 IF L(X,Y)*6 THEN GOSUB 4500 

670 IF L(X,Y)*7 THEN GOSUB 5000 

680 IF L(X,Y)*8 THEN GOTO 5300 
690 IF L (X > Y) =0 THEN GOSUB 5500 
695 GOSUB 9500 „ 

700 IF INKEY$*"5" THEN GOTO 600 

710 IF INKEY $s"6" THEN GOTO 610 

720 IF INKEY$="7" THEN GOTO 620 

730 IF INKEY t *"8" THEN GOTO 630 

740 IF INKEY t*"S" THEN GOTO 640 

750 IF INKEY $*"G" THEN GOTO 650 


0 
0 

790 GOTO 700 
920 CLS 

2000 FOR N* 1 TO 20 
2010 NEXT N 
2015 LET L (X,Y) »0 
2020 CLS 

2025 LET ORO«ORO+lNT <RND*1000) + 
200 

2030 PRINT RT 0,0,"#************ 
******************** 

ORO ************** 

*******************" 

2046 PRINT , ,"C B E UN MUCCHIO DI 

ORO IN OUESTR STANZA. SARAI RICC 
0 (SE RIUSCÌ- RAI A SOPRAUUIUERE 

2060 FOR N*1 TO 40 
2065 NEXT N 

2067 IF ARK*1 OR ORO >6000 THEN G 
OTO 2090 

2070 PRINT , , "TI OCCORRONO ANCOR 
A (6000-ORO) 

2075 PRINT "PEZZI D* ORO" 

2090 GOSUB 4050 
2110 GOTO 695 

2500 FOR N * 1 TO 20 

2501 NEXT N 

2505 QL5 

2510 PRINT AT 0,0;"*##*####*#*** 
**##**#*##****#**#*# p 
ANTASMA #####*#**##### 

****#***#######*#**'■ 

2530 PRINT ____ 

2540 IF ARK*1 THEN GOTO 2900 
2550 PRINT , , "HAI INCONTRATO UN 
FANTASMA" 

2560 IF RINGHI THEN PRINT , ,"HAI 
L" ANELLO MAGICO, MA E" COSI* BUI 
A QUESTA CAUERNA CHE L* INUl- SIB 
IL ITA" NON TI SERUE" 

2570 GOSUB 4050 

2590 PRINT "IN QUESTA CAUERNA SC 
URA IL FAN- TASMA SENTE LATUAP 
RESENZA MA TU NON PUOI UEDERLO 
2630 GOSUB 4050 
2640 CLS 

2650 PRINT "IL FANTASMA TI HA PR 
ESO?" 

2652 GOSUB 4050 
2660 LET Q*RND ^ 

2685 IF Q > . 75 THEN GOTO 2950 


2867 PRINT "SI ....HA HA HA HA . 

TI HA PRESO" 

2670 IF Q < ■ 25 THEN PRINT "E TI H 
A GETTATO NELL* OLIO BOL- LENTE" 
2680 IF Q > * . 25 AND Q<.5 THEN PRI 
NT "E T I HA FA TTO A LL SPIE DO 

lagMlia ■ y 

2690 IF Q > * . 5 AND Q < ■ . 75 THEN PR 
int "E TI HA QE TTRTQ IH 
DI LAUA 


hf.H'iH r T T T T r TFFFFH 


2720 GOSUB 4050 
2730 GOTO 9200 

2900 PRINT , , " HAI LA PIETRA INCA 
NTATA CHE TI PROTEGGE DAI FANTA 
SMI" 

2920 GOSUB 4050 
2930 RETURN 

2950 PRINT "....SEI RIUSCITO A M 
ETTERTI IN SALUO . " 

2960 GOSUB 4050 
2970 RETURN 

3000 FOR N*1 TO 20 

3001 NEXT N 
3010 CLS 

3020 PRINT "#****#****####**#*#* 
***##**###*** SERPENTI 

********************* 
************" 

3030 PRINT , , " SE I ENTRATO IN UNA 
CAUERNA CHE CONTIENE CENTINAIA 
DI SERPENTI" 

3050 PRINT 

3065 IF ARK«1 THEN GOTO 3400 
3070 PRINT "RIUSCIRAI AD USCIRNE 
TI CATTURINO E TI ST 
FRA LE LORO SPIRE?" 


SENZA CHE 
RITOLINO 
3080 GOSUB 4050 
3090 PRINT 

3100 IF RND > . 5 THEN GOTO 3300 
3120 PRINT "PURTROPPO SEI CADUTO 
FRA LE LO- RO SPIRE ED I SERPEN 
TI TI HANNO STRITOLATO SENZA PIE 
TA* " 

3130 GOSUB 4050 
3140 GOTO 9200 

3300 PRINT "BRAUO SEI RIUSCITO A 
SFUGGIRE SENZA CADERE FRA LE 
LORO TER- RISILI SPIRE" 

3310 GOSUB 4050 
3320 RETURN 
3400 LET QbRND 

3410 PRINT "HAI LA PIETRA INCANT 
ATA CHE TI PROTEGGE DAI LORO MO 
RSI UELENOS I" 

3420 IF Q > . 75 THEN PRINT "PERO* 
SEI CADUTO IN UN CUNICOLO COLLEG 
ATO AL CENTRO DEL PIANETA DOUE E 
* IMPOSSIBILE RISALIRE" 

3430 GOSUB 4050 

3450 IF Q > . 75 THEN GOTO 9200 

3460 RETURN 

3500 FOR 1*1 TO 20 

3501 NEXT I 
3505 CLS 

3510 PRINT "#***»****#######*### 
**«####****** ORCO 

***######***##***#**# 

*#***»**«#**" 

3530 IF ARK*0 AND RING*0 THEN PR 
INT , , "HAI INCONTRATO UN ORCO - 
QUESTA TERRIBILE CREA TURA TI HA 
SQUA R- TATO IN DUE 


F'r F F 


3540 IF ARKsl THEN PRINT , , "HAI 
INCONTRATO L^ORCO, MA LA PIET 
RA INCANTATA TI PROTEGGE" 

3550 IF RING*1 AND ARK*0 THEN PR 
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INT, , , " HAI INCONTRATO L B ORCO , MA 
L B A- NELLO MAGICO TI RENDE INO 
ISIBI- LE E GLI SEI SFUGGITO" 
3570 IF RING-0 AND ARK«0 TMEN PR 
INT , , "PURTROPPO DOURAI RICOMINC 
IARE DI NUOUO" 

3580 GOSUB 4050 

3590 IF ARK«0 AND RING«0 THEN GO 

TO 9800 

3680 RETURN 

4000 FOR N * 1 TO 80 

4010 NEXT N 

4015 CLS 

4080 PRINT AT 0,0J "************* 
a**#*###******#*#*** 

MARZIANI ************** 

*******************" 

4036 PRINT , ,"NON TI DEUI 50RPRE 
NDERE SE CI SONO I MARZIANI . . 

SIAMO SU MARTE" 

4045 GOTO 4090 

4050 PRINT , , "PREMI NEULINE PER 
CONTINUARE" 

4060 INPUT Gf 
4065 RETURN 

4090 IF RINGal TMEN PRINT "L*ANE 
LLO MAGICO NON FUNZIONA IN PRESE 
NZA DEI MARZIANI" 

4100 IF ARKal THEN PRINT "LA PIE 
TRA INCANTATA NON HA POTÈ -RI CON 
TRO I MARZIANI" 

4110 GOSUB 4050 
4115 CLS 

4180 PRINT "I MARZIANI SONO UNA 
STRANA RAZZAE TI CONCEDONO UNA P 
OSSIBILITA* PER SALUARTI" 

4181 PRINT "HAI TRE POSSIILITA" 
PER INDOUI- NARE IL LORO NUMERO 
SEGRETO (DA UNO A CINQUE) " 

4122 PRINT "SE INDOUINERAI SARAI 
LIBERO DI PROSEGUIRE , ALTRIMEN 
TI SARI DI- SINTEGRATO" 

4125 LET Q*INT (RND*5) +1 
4130 GOSUB 4050 

4135 CLS 

4136 FOR F»1 TO 3 

4140 PRINT "******* SCEGLI UN NU 
MERO *******" 

4150 INPUT G 

4160 IF GaQ THEN GOTO 4200 
4170 NEXT F 


4175 PRIMT . . 

H. . - - - re c c r - r cr.r c-i 

h »• M M 

-■ET r ~HT.~ r T ‘ TtiTEGI 

[PhT ij UB 


4180 GOSUB 4050 
4190 GOTO 9200 

4200 PRINT . , "HAI INDOUINATO IL 
NUMERO : " ; G 

4210 PRINT "PUOI CONTINUARE" 

4220 GOSUB 4050 
4230 RETURN 

4500 FOR N * 1 TO 20 

4501 NEXT N 
4505 CLS 

4510 PRINT "******************** 
************* FOLLETTO 

********************* 
************" 

4525 IF ARKal OR RINGal THEN GOT 
0 4500 

4540 PRINT , , "HAI INCONTRATO UN 
FOLETTO. CREA-TURA AU IDA DAI DEN 
TI AFFILATI" 

4545 PRINT "PER FARTI PASSARE UU 
OLE 1000 PEZZI D" ORO" 

4546 GOSUB 4050 

4547 CLS 

4550 IF ORO >1000 THEN GOTO 4900 
4560 IF ORO*1000 THEN GOTO 4800 


4570 PRINT "PURTROPPO IL TUO ORO 
E B TROPPO POCO PER SODDISFARE 
LA BRAMOSIA DEL FOLLETTO" 

4575 PRINT "PREP ARAT I AD E SSER E 
DIUQRATQ 


:A' 

SPi 


GNAHBGt ,Hni't!ùM 


RINT SE TI PUÒ" CON 

SOLARE TI DI- RO a-B */""FOLLET 
TO HA FATTO IN -D IGEST IONE , PERO" 
TU DOURAI RI- COMINCIARE L B AUUE 
NTURA" 

4585 GOSUB 4050 
4590 GOTO 9800 

4600 IF ARKal THEN PRINT , ,"LA P 
IETRA INCANTATA TI PROTEGGE DAL 
FOLLETTO" 

4610 IF RINGal THEN PRINT , , "L B A 
NELLO MAGICO TI RENDE INUI- SIB 
ILE E PUOI PASSARE" 

4620 GOSUB 4050 

4630 RETURN 

4800 PRINT "SEI FORTUNATO POSSIE 
DI PROPRIO LA QUANTITÀ" D" ORO C 
HE TI HA CHIESTO" 

4805 LET GOLDa0 
4810 GOSUB 4050 
4820 RETURN 

4900 PRINT "HAI ABBASTANZA ORO P 
ER DARGLIENEUNA PARTE" 

4910 LET OROaORO-1000 
4920 GOSUB 4050 
4930 RETURN 

5000 FOR N = 1 TO 20 

5001 NEXT N 
5005 CLS 

5010 PRINT "******************** 
************* USCITA 

********************* 
************" 

5030 PRINT "HAI TROUATO L B USCITA 

5050 IF ARKal THEN GOTO 5200 
5070 PRINT "PERO* NON HAI LA PIE 
TRA INCAN- TATA PER CUI DOURA R 
ITORNARE NELLE CAUERNE" 

5080 GOSUB 4050 
5090 RETURN 

5200 PRINT "BRAUO HAI CON TE LA 
PIETRA PER CUI PUOI PRENDERE L B 
ASTRONAUE E FAR RITORNO SULLA TE 
RRA " 

5250 GOSUB 4050 
5260 GOTO 8570 

5300 FOR N a 1 TO 20 

5301 NEXT N 

5308 LET L (X,Y) a0 
5305 CLS 

5310 PRINT "******************** 
************* ANELLO MAG 

ICO ********************* 

************" 

5320 PRINT , , " HA I TROUATO L" ANEL 
LO MAGICO CHE TI RENDERÀ* INUISI 
BILE A TUTTO AD ECCEZIONE DEI M 
ARZIANI E DEL MOSTRO" 

5350 LET RINGal 

5360 PRINT , , "QUESTO UUOL DIRE C 
HE PROBABIL- MENTE RIUSCIRAI A 
SOPRAUUIUERE E DIFFICILMENTE SA 
RAI UCCISO. . " 

5380 PRINT 

5400 PRINT TAB 10; "SUPPONGO .... " 
5410 GOSUB 4050 
5420 GOTO 695 

5500 FOR N * 1 TO 80 

5501 NEXT N 
5505 CLS 

5510 PRINT AT 0 , 0; "****** ******* 
******************************** 
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********************* 

**** NI 

ENTE QUI **** 

*************** 

******************************** 

*******************" 

5526 PRINT 

5527 GOSUB 4050 

5528 CLS 
5530 RETURN 

6000 IF Y»1 TNEN GOTO 700 

6010 LET YaY-1 

6020 GOTO 550 

6100 IF X»4 THEN GOTO 550 

6110 LET X*X+1 

6120 GOTO 550 

6200 IF ORO > >6000 RND Xal RND LE 
U»3 RND Y *7 THEN GOTO 9000 
6205 IF LEU*3 RND X*1 RND Y=7 TH 
EN GOTO 8000 

6210 IF Xal THEN GOTO 700 

6220 LET X*X-1 

6240 GOTO 550 

6300 IF Y «7 THEN GOTO 700 

6310 LET Y *Y + 1 

6320 GOTO 550 

6400 IF LEU«1 THEN GOTO 700 

6410 LET LEU-LEU-1 

6415 LET R*X 

6420 LET B«Y 

6430 GOSUB 9900 

6450 SLOU 
6460 GOTO 550 

8500 IF LEU>3 THEN GOTO 700 
6510 LET LEU*LEU+ 1 
8520 GOTO 6430 
8000 FOR N* 1 TO 30 
6005 NEXT N 
6010 CLS 
3020 GOTO 8200 
6040 CLS 




1 1 





6095 NEXT 
8096 CLS 

8100 PRINT RT 0,0; "****** 
************************* 
********************* 

* * * * 

DEL MOSTRO **** 

******** 

************************* 

*******************“ 

6120 RETURN 

8200 GOSUB 8040 

8210 PRINT , , "SEI ENTRATO 

TANA DEL HO- STRO, MA N~ 

BBASTANZA ORO PER CORROM 

GUARDIANO CHE TI UCCIDE" 

8230 PRINT 

8240 GOSUB 4050 

8250 IF RINGal THEN PRINT 

LLO MAGICO NON FUNZIONA 

0 AL MOSTRO" 

IF RING=1 THEN GOSUB 
GOTO 9200 
FOR N * 1 TO 100 
NEXT N 
CLS 

PRINT "************* 
************************* 
************" 

3540 FOR N a 1 T 

PRINT " « 

“I |**" 

NEXT N 

3565 PRINT "************* 
************************* 
************" 

3568 RETURN 
3570 GOSUB 8530 
>75 PRI NT AT 5,5, 


******* 

******* 

TANA 

******* 

******* 


NELLA 
N HAI A 
ERE IL 


"L* ANE 
UICIN 


3260 

8270 

3500 

8510 

3520 

8530 



4050 


******* 

******* 


******* 

******* 



Nal TO 50 
8590 NEXT N 

AT 


360^RTHT 


17,5; "[ 



FOR Nal TO 100 


_NKEY|a"N" THEN STOP 
8650 IF INKEY 8 < > "S" THEN GOTO 86 
40 

3660 CLS 
3670 RUN 

9000 FOR Nal TO 30 
9005 NEXT N 
9010 GOSUB 8040 
9020 LET OROaORO-6000 
9040 PRINT , , "SEI ENTRATO NELLA 
TANA DEL MO- STRO CORROMPENDO L 
A GUARDIA CON 6000 PEZZI D*ORO" 
9060 PRINT , , "MA IL MOSTRO DORME 
SEMPRE CON UNOCCHIO APERTO E TI 
HA UISTO" 

9080 PRINT 
9090 GOSUB 
9095 CLS 
9100 PRINT 


4050 


"HAI A DISPOSIZIONE C 
INQUE FRECCECON LE QUALI DOURAI 
UCCIDERE IL MOSTRO." 

9101 PRINT "PREMI ""1"" PER LANC 
IARE" 

9105 LET ARRaS 

9110 IF INKEY* <>"1" THEN GOTO 91 
10 
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9120 IF RND > . 8 0 Tj 
9125 PRINT 


M^NrfiTn 


ÌOTO9150 


■3133 LET hrR*ARR-1 

9131 IF RRR=0 THEN GOTO 9200 

9132 GOTO 9110 
^OPRINT^^f 


r r r ? ? 7 t t t t t t t p p p p p 

, .1 ■PPPpPpHHWH^HH^^MH 

R HHT Mi’ ' I : n IL MO IT 

PO ED Hft I MI l I - 

LA PIETRO INCANTA 


9155 LET ARK = 1 
9160 LET X = 1 
9170 LET Y *7 

9190 LET LEU=3 

9191 GOSUB 4050 
9195 GOTO 550 

9200 FOR N * 1 TO 20 

9201 CLS 

9210 GOSUB 3530 
9220 PRINT RT 6,5;" 

i 

RT 7,5j " 




RT 8,5, "| 

1 = 1 TO 20 
9231 NEXT N 
9240 GOTO 8600 
9300 CLS 
9310 PRINT 


. . . M 1-r; rp 



$ < >CHRf 118 THEN GO 


TO 9340 


9345 CLS 

9346 PRINT 


NELL F CAUFRMF PL 1 L 
IUELLO PUOI TPil'.'RPE UN ANELLO MP 
GICO 0 HF TI PENDERÒ* INUI5I6ILE. 
MP NON PUPO* ALCUN EFFETTO CONTRO 
I MARZIANI E IL MOSTRO 



u n a 

NEULINE PER INIZIARE 


" 


9370 IF INKEY $ O ChR $ 118 THEN GO 

TO 9370 

9380 GOTO 500 


9500 CLS 

9501 PRINT RT 3,6;"LIUELL0 ";LEU 
; TRB 16; "QRQ = " ; ORO 
9505 LET Rt = T 


9510 LET B$ = "| 




0 LET C$=" 


9530 LET D $ = "| 


9600 PRINT 0$ 

9610 FOR N = 1 TO 4 
9620 PRINT Bt 
9630 PRINT C$ 

9640 PRINT B $ 

9650 IF N < =3 THEN PRINT D$ 

9660 IF N = 4 THEN PRINT A$ 

9670 NEXT N 

96 80 IF LE U =3 THEN PRINT RT 0.24 
TAB 24; "1 TANA 1";TR 
B 24; "■ DEL ■" ; ThB 24, "■MOSTROl 
b ^TAB 24; "■ ■" ; TAB 24; "■ I 


9685 PRINT AT D , A; " 

9690 RETURN 

9900 FAST 

9901 DIM L (4,7) 

9902 LET fl=X 

9904 LET B=Y 

9905 GOSUB 9950 

9906 FOR N = 1 TO 12 
9908 GOSUB 9990 

9910 LET L ( X , Y ) =1 
9912 NEXT N 
9914 FOR N = 1 TO 2 
9916 GOSUB 9990 

9918 LET L (X,Y) =3 
9920 GOSUB 9990 
9922 LET L (X ,Y) =6 
9924 GOSUB 9990 
9926 LET L(X,Y)=2 
9928 GOSUB 9990 

9930 LET L (X,Y) =5 
9932 NEXT N 

9934 GOSUB 9990 
9936 LET L(X,Y)=4 

9935 GOSUB 9990 

9940 IF LEU = 1 AND RING=0 THEN LE 

T L ( X , Y ) =8 

9942 GOSUB 9990 

9944 IF LEU = 1 THEN LET L(X,Y)=7 

9945 LET X=A 

9946 LET Y=B 

9943 RETURN 

9950 FOR X = 1 TO 4 
9952 FOR Y=1 TO 7 
9954 LET L(X,Y)*0 
9956 NEXT Y 
9958 NEXT X 
9960 RETURN 

9990 LET X = INT (RND*4) +1 

9991 LET Y=INT (RND*7 ) +1 

9992 RETURN 

9998 SAUE "RUU . MART(3" 

9999 RUN 
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The Spectrum Programmer (il 
programmatore dello Spec- 
trum) 

di S. M. Gee 

ed. Granada Publishing 


THE 

SPECTRUM 

PROGRAMMER 





C ominciamo per questo numero con 
un libro scritto espressamente per 
i nuovi fan dello Spectrum, alcuni dei 
quali forse non riescono ancora a de- 
streggiarsi soddisfacentemente con 
l’amato, per ora odiato, bene. 

“The Spectrum Programmer” è rivolto 
infatti agli “utenti che vogliono impara- 
re a scrivere i loro programmi”, ma tro- 
vano già qualche difficoltà nel sintoniz- 
zare il televisore o, più avanti, nel capi- 
re il significato di una POKE o la proce- 
dura di definizione di un carattere grafi- 
co. In definitiva, si tratta di una guida 
“step by step” ai misteri piccoli e grandi 
dello ZX. Quale la procedura seguita. a 


questo scopo? Semplicemente, il letto- 
re/utente viene portato, passo dopo 
passo, dall’apertura della scatola fino 
alla conoscenza delle modalità d’uso di 
tutti i comandi del BASIC Sinclair. Il 
cammino è stato accuratamente pianifi- 
cato, così da minimizzare sia la possibili- 
tà di commettere errori sia quella di 
presentare al lettore esempi o esercizi 
che presuppongano conoscenze supe- 
riori a quelle assimilate fino a quel mo- 
mento. 

Oltre a questo, l’autore ha cercato una 
gradualizzazione, forse perfino eccessi- 
va, delle difficoltà il che, se da un lato 
farà la felicità di chi può finalmente im- 
parare con calma, senza fretta, col pia- 
cere di vedere dedicato ad ogni argo- 
mento lo spazio adeguato, d’altro canto 
farà scalpitare tutti i sostenitori del “tut- 
to e subito”. 

Un’altra conseguenza della gradualizza- 
zione di cui sopra è la davvero insolita 
sequenza in cui vengono presentati nu- 
merosi comandi e funzioni. Tanto per 
fare qualche anticipazione, si sappia 
che REM è... l’ultimo comando a essere 
trattato, mentre, prima di spiegare le 
capacità grafiche dello Spectrum, un in- 
tero capitolo viene dedicato allo svilup- 
po della grafica in bassa risoluzione 
(cioè quella che fa uso dei caratteri gra- 
fici predefiniti già presenti sulla tastiera 
dello Spectrum). Altra stranezza: la fun- 
zione dei separatori - virgola, punto e 
virgola, apice... - viene spiegata dopo 
ben sette capitoli. 

Leggendo il libro, però, ci si accorgerà 
come, ben lungi dall’essere un difetto o 
una limitazione, questa scelta si rivela 
essere pienamente rispondente allo sco- 
po iniziale: accompagnare quasi per 
mano il futuro programmatore, introdu- 
cendo una alla volta nozioni sempre più 
complesse rimanendo sempre nell’am- 
bito di una strada a senso unico, da cui 
non deve essere possibile uscire, che 
porta alla conoscenza globale del BA- 
SIC Spectrum e... alla fine del libro. 
Ma vediamone più in dettaglio la com- 


posizione. 

I capitoli in cui esso si suddivide sono 
10, il primo dei quali dedicato a una 
breve storia dei computer Sinclair (imi- 
tando un vezzo di certa letteratura si 
potrebbe intitolare questo capitolo “Do- 
ve si impara quanto spazio avrebbe oc- 
cupato venti anni or sono un computer 
con le capacità dello Spectrum e pari- 
menti si apprende quanto piccolo e limi- 
tato fosse l’ormai pioniere ZX80”). Il 
lungo viaggio comincia col capitolo 2, 
dedicato al primo impatto col compu- 
ter. Si potrà vedere come le operazioni 
in esso descritte, come già riferito, in 
effetti non comportino il bisogno di co- 
noscenze precedenti, e come il lettore 
venga veramente “guidato”, nel senso 
più rigoroso del fermine. La sezione 
successiva è dedicata al concetto di va- 
riabili (con relative spiegazioni di LET, 
PRINT, INPUT); qui vengono proposti 
i primi, elementari programmini che, si 
badi bene, non sono giochi, ma - sia 
pure a un livello assolutamente didatti- 
co - i passi iniziali verso le applicazioni 
serie della potenza e delle capacità del 
calcolatore. Si prosegue con l’introdu- 
zione dei cicli e della nozione di flusso 
del programma (GO TO, IF, FOR... 
NEXT, STEP), per passare all’arte di 
manipolare le stringhe, in cui (siamo al 
capitolo 5) si parlerà anche di READ, 
DATA e RESTORE. 

Molto interessante è il capitolo 6, intito- 
lato “Functions and subroutines”, che 
prima di occuparsi di GOSUB... RE- 
TURN riserva ampio spazio a una illu- 
strazione efficacissima delle funzioni a 
disposizione, senza tuttavia tediare i 
non matematici con pagine interminabili 
di trigonometria. 

Col capitolo 7 si passa a parlare della 
grafica, inizialmente in bassa risoluzio- 
ne. L’high resolution arriverà dopo un 
breve intervallo (molto ben fatto) dedi- 
cato al suono e al listato di un (uno solo!) 
gioco. Il decimo e ultimo capitolo, per 
concludere, si occupa degli operatori lo- 
gici e di tutta la parte dedicata al lin- 
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guaggio macchina (PEEK, POKE, USR, 
OUT, e via continuando). Dobbiamo di- 
re che l’unico problema riscontrato nel 
nostro esame riguarda la definizione dei 
caratteri grafici, illustrata con rigorosa 
esattezza, ma forse un po’ lontana dai 
problemi effettivi dei programmatori in 
questo campo. 

Per il resto quasi niente da dire: esami- 
nando il testo con pignoleria, esistono 
un paio di punti in cui l’esattezza del 
tracciato “step by step” previsto dal- 
l’autore vacilla leggermente, ma si trat- 
ta di poca cosa rispetto al contenuto del 
libro, sicuramente più che adeguato per 
soddisfare chiunque sia alla ricerca di 
una buona guida per imparare a padro- 
neggiare sapientemente la piccola e 
d’ora in poi solo amata scatoletta nera. 


The Working Spectrum - A Li- 
brary of Practical Subrouti- 
nes and Program* (Lo Spec- 
trum al lavoro — raccolta di 
subroutine e programmi) 

di David Lawrence 
ed. Sunshine Books 


THE WORKING 

SPECTRUM 

A LIBRARY OF PRACTICAL 
SUBROUTINES AND PROGRAMS 



DAVID LAWRENCE 


Parlando di libri divulgativi dedicati agli 
utenti dello Spectrum, si possono nota- 
re due correnti in cui si dividono le ope- 
re dei vari autori. Mentre la prima di 
esse mira a insegnare attraverso la teo- 
ria della programmazione, corredando 
quest’ultima di esempi pratici (pro- 
grammi), la seconda parte dai program- 
mi, corredati di adeguate spiegazioni 
teoriche. Senza addentrarci in giudizi di 
valore di una tecnica rispetto all’altra, 


vi anticipiamo semplicemente che “The 
Working Spectrum”, seconda opera in 
lingua originale recensita in questo nu- 
mero, appartiene alla seconda catego- 
ria (anche se, come qualità, non è... se- 
conda a nessuno!). 

In effetti si tratta di una raccolta di pro- 
grammi, debitamente vivisezionata, 
analizzata, decodificata, banalizzata fi- 
no al livello più basso possibile, per po- 
ter (stiamo prendendo in prestito i con- 
cetti espressi dall’autore nell’introduzio- 
ne) risultare utile a tutti: da chi della 
teoria se ne infischia (in quanto desidera 
in primo luogo strumenti adatti a far 
lavorare nel modo migliore il suo Spec- 
trum) a quanti stanno sviluppando pro- 
grammi “utili”, ma si scontrano con pro- 
blemi superiori alle loro capacità, per 
terminare con coloro che cercano sem- 
plicemente di imparare a programmare 

- o di capire a che cosa possa servire 

- un home computer, in dispregio al- 
l’opinione secondo la quale la funzione 
dei calcolatori è di risolvere problemi 
che prima della loro invenzione non esi- 
stevano. Battute (ma non tanto) a parte, 
andiamo ad occuparci del libro in que- 
stione. 

I campi in cui l’autore ha deciso di ci- 
mentarsi sono quattro, comprendenti il 
data base (lo Spectrum come un archi- 
vio), il bilancio familiare, la grafica e 
l’educazione (“Lo Spectrum come un 
maestro in casa” recita, debitamente 
tradotto, il sottotitolo del capitolo in 
questione). Seguono una piccola raccol- 
ta di utility e programmi di vario gene- 
re, più un paio di giochi e (ottimo) l’indi- 
ce di tutta la terminologia tecnica usata 
nel testo. 

I quattro capitoli principali sono occu- 
pati da uno o più programmi inerenti 
all’argomento, sempre e comunque 
spezzati in piccoli moduli accuratamen- 
te commentati, che possono anche esse- 
re presi a sé stanti e inseriti nei pro- 
grammi personali dei lettori. Tutta la 
trattazione è estremamente rigorosa, 
con un linguaggio un po’ meno facile 
del solito (ma, come di consueto, un 
buon vocabolario risolverà tutti i proble- 
mi); i listati sono molto chiari (le variabi- 
li, nei limiti del possibile, non sono ab- 
breviate, ma scritte in forma estesa), 
ottenuti con una stampante professio- 
nale. Anche le routine usate sono, in 
molti casi, di altissimo livello, complete 
anche di preziosi trucchi per risparmia- 
re memoria, velocizzare eventuali ricer- 
che e, in definitiva, ottimizzare il funzio- 
namento di ogni programma. 

Al contrario del capitolo 1, dedicato a 
un solo, validissimo data base, gli altri 
sono costituiti da piccoli package, insie- 
mi di programmi che si completano a 
vicenda, i più interessanti dei quali sono 
sicuramente quelli riguardanti grafica 
ed educazione. Nel primo, oltre ai “con- 
sueti” generatori di UDG e tool per dise- 
gnare direttamente sullo schermo, è 
presente anche un programma che vi 
consentirà di lavorare a disegni aventi 


una dimensione massima di 65536 x 
65536 punti: nel secondo sono compre- 
si tre tipici giochi con funzione educati- 
va, prevalentemente basati su masse di 
dati memorizzati nel calcolatore. Ebbe- 
ne, per una volta viene proposto il pro- 
gramma di gestione completamente pri- 
vo di dati. E quindi possibile copiare i 
vari listati integrandoli con ciò che si 
ritiene più adatto, evitando, come pur- 
troppo avviene spesso, di proporre a 
bambini italiani quesiti sulla storia ingle- 
se e via passando per esempi di questo 
genere più o meno eclatanti, ma sem- 
pre poco edificanti. 

Il capitolo delle utility prevede un pro- 
gramma... calcolatore (fatto per sempli- 
ficare e velocizzare calcoli ripetitivi e/o 
complessi), un programma intitolato 
“calorie”, di cui l’autore afferma essere 
il principale utente, un generatore di 
grafici, un renumber (che calcola anche 
i GO TO e i GOSUB, purché questi non 
siano sotto forma di espressione nume- 
rica, tipo GO TO x*1000), una versione 
avanzata di “Unitile II”, il data base del 
capitolo 1 e “Typist”, ausilio per miglio- 
rare la velocità di digitazione. Insieme 
ai giochi, non particolarmente degni di 
nota, possiamo infine trovare una picco- 
la routinetta di ordinamento alfanumeri- 
co, sempre utile. Prima che con l’indice, 
il libro si conclude con una postfazione 
dell’autore, che in poche parole invita i 
lettori a fare buon uso dei programmi 
contenuti nel libro, adattandoli, modifi- 
candoli e migliorandoli secondo i propri 
bisogni e la propria creatività, invito che 
ci permettiamo di fare nostro e di girare 
a tutti. 


I libri italiani vengono 
offerti con il 10% 
di sconto sul prezzo di 
copertina. 


I libri possono 
essere ordinati 
utilizzando 
il coupon pubblicato 
a pag. 82 
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Siamo lieti di poter annunciare una 
grande novità! Di cosa si tratta? Molto 
semplice: il GRUPPO UTILIZZATORI 
COMPUTER SINCLAIR NAPOLI, di 
nostra vecchia (nonché graditissima) co- 
noscenza, ha da qualche tempo intra- 
preso la pubblicazione del suo bollettino 
non più su carta, bensì su cassetta. 

Il livello tecnico dello stesso è davvero 
notevole e - notare bene! - il materiale 
contenuto è assolutamente originale. 
Abbiamo pensato, con l’autorizzazione 
del Gruppo, di presentare su SUPER- 
SINC i programmi di cui è composto il 
bollettino, un poco alla volta, in aggiun- 
ta al materiale pubblicato su ZX CLUB. 
Questo vuol dire che in quasi tutti i nu- 
meri di SUPERSINC la cassetta allega- 
ta conterrà uno o più programmi 
“extra-rivista”, di buon livello e a volte 
scritti in linguaggio macchina, dalle te- 
matiche più disparate. Se faremo in 
tempo, troverete già qualcosa in questo 
numero... altrimenti vorrà dire che l’ap- 
puntamento sarà solo rinviato di un me- 
se. Per ora è tutto: passiamo, dunque, 
al materiale dei club Sinclair. 


Gli articoli di ZX Club 

A opera di Roberto Chimenti, del Grup- 
po Utilizzatori Computer Sinclair Napo- 
li (sempre loro!), ecco un breve scritto 
ad uso e consumo di chi vorrebbe costi- 
tuire un club, ma non sa bene cosa si 
potrebbe (o dovrebbe) fare in proposi- 
to. 

Il Gruppo Utilizzatori Computer 
Sinclair vi spiega come formare 
un club e come operare 
di Roberto Chimenti 
v 

E indubbio che la formazione di un 
club per hobbysti d’informatica è 
oggi un fatto che interessa un gran nu- 
mero di persone; i motivi che spingono 
a questo passo sono molteplici, ma il 
più importante è sicuramente quello di 




poter disporre di molti amici con cui 
avere uno scambio di opinioni, oltre 
che, ovviamente, di software. 

Ai tempi in cui il Gruppo Utilizzatori 
Computer Sinclair di Napoli si formò 
non esistevano molte riviste che si occu- 
passero largamente della cosa, per cui 
arrivò un certo momento in cui alcuni 
di noi, già da tempo in contatto, decise- 
ro di riunire i propri sforzi per facilitare 
gli scambi di materiale vario e trovare 
altre persone che avendo interessi simi- 
li, ma esperienze differenti, potessero 
essere di reciproco aiuto nei momenti 
particolarmente critici che ogni hobby- 
sta attraversa (specialmente in un cam- 
po, come quello dell’informatica, a mol- 
ti completamente estraneo). 

Si fece una prima riunione (in 7-8 perso- 
ne) e decidemmo di darci da fare. Ognu- 
no di noi ebbe un compito: a me fu data 
la ’carica’ di capogruppo, ad Emilio Tri- 
unfo quella di segretario ed agli altri il 
solo incarico di provvedere alla diffusio- 
ne della notizia della formazione del 
Club (a cui fu provveduto inviando un 
nutrito numero di inserzioni sulle riviste 
del settore). Presto arrivarono i primi 
soci, che nel giro di 12 mesi sono diven- 
tati oltre 240. 

Tutto questo può essere ritenuto facile, 
ma fare in modo che i soci trovino una 
vera convenienza all’iscrizione e mante- 
nere la promessa nel tempo è un po’ 
meno facile di quanto si creda. Io mi 
sono regolato così; prima di tutto la 
pubblicazione di un bollettino estrema- 
mente interessante è sicuramente la co- 
sa più importante, per cui ho sempre 
provveduto a spronare i soci più provet- 
ti nella programmazione a 'partorire* i 
programmi più interessanti e che non 
esistevano in commercio, ho sempre te- 
nuto in altissima considerazione le pic- 
cole scoperte che ognuno di noi faceva 
ed ho cercato di renderle sempre mani- 
feste nel nostro piccolo “giornalino”, il 
quale, volta per volta, diventava sem- 


pre più gonfio ed interessante, fino ad 
arrivare ad oggi in cui è addirittura pas- 
sato su cassetta per un totale di ben 70 
minuti di registrazione continua. Mi sof- 
fermo su questo punto perché è secon- 
do me il più importante: non si tratta, 
badate bene, di programmi copiati, ma 
assolutamente inediti, frutto dì vero la- 
voro da parte di diversi soci. E questo, 
a mio avviso, la chiave del successo (per 
quel poco che ci è stato gentilmente 
concesso): dimostrare di saper fare 
qualcosa, di saper aiutare chi ne ha bi- 
sogno; se non ci sono questi requisiti è 
meglio lasciar perdere, visto che la si- 
tuazione scellerata del nostro paese, in 
fatto di software, aiuta chiunque a tro- 
vare il giochino che vuole ad ogni ango- 
lo di strada. 

Il mio gruppo è comunque stato abba- 
stanza fortunato, in quanto si è avvalso 
dell’opera di valenti amici, che hanno 
dato e continuano a dare, disinteressa- 
tamente, la loro opera a beneficio dei 
meno abili nella programmazione; ha 
organizzato anche un ottimo corso per 
imparare il linguaggio macchina dello 
Z80 ed è intervenuto in ben due fiere 
campionarie a disposizione di chi, in fat- 
to di computer, ne volesse sapere di 
più; il tutto sempre in maniera estrema- 
mente disinteressata. Probabilmente il 
numero dei soci del gruppo potrebbe 
essere notevolmente più alto, ma è da 
precisare che a noi interessano solo per- 
sone che vogliono interagire con il club 
e non aspettare passivamente a casa 
che il club apporti loro dei benefici; tut- 
to questo ha portato notevoli frutti, tan- 
t’è che sono molte le persone che si 
rivolgono a noi, anche da lontano, per 
risolvere dei piccoli-grandi problemi. 
Come vedete, mi sono soffermato molto 
sul lato 'sociale’ della faccenda più che 
sul lato organizzativo vero e proprio, 
ma l’ho fatto apposta (sono reo confes- 
so): cercate di creare questi presupposti 
e tutto il resto (soci compresi) verranno 
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da soli; non per niente siamo il club in 
Italia con il numero più alto di pubblica- 
zioni sulle riviste specializzate, che nel 
solo mese di dicembre ha ’collezionato’ 
ben tre pubblicazioni su tre riviste diffe- 
renti (tra le quali Supersinc)! Se poi vi 
interessa il lato organizzativo vi basti 
sapere quanto segue; 
in Italia (per fortuna) non c’è il divieto 
di riunirsi e di fare quattro chiacchiere; 
non è neanche vietato scrivere agli ami- 
ci e comunicare le scoperte proprie e 
di altri: che poi la lettera si chiami CIR- 
COLARE INTERNA o PICCOLO BOL- 
LETTINO ad uso proprio & amici con- 
nessi, poco importa; l’importante è ri- 
manere autonomi e non legarsi a fatti 
commerciali, o peggio politici, che con- 
dizionerebbero (di molto) l’autonomia 
del club. Potrà essere importante, inve- 
ce, prendere contatto con CRAL o sedi 
ricreative aziendali per poter disporre 
di luoghi di riunione o per i corsi di pro- 
grammazione, in maniera pressoché 
gratuita, previa promessa (fatevi furbi) 
di far partecipare gratuitamente i di- 
pendenti dell’azienda ai vari corsi che 
si potranno tenere durante l’anno. 

Noi ci siano organizzati proprio così e 
vi assicuriamo che è la cosa migliore, in 
quanto non ci sono spese gravose di 
gestione (che ricadrebbero forzatamen- 
te sui soci) e tutto sommato bastano 
pochissime persone (anche 2), che, di- 
sponendo di un po’ di tempo libero, pos- 
sano mantenere i contatti tra i soci, te- 
nere la corrispondenza ed attuare gli 
scambi e la raccolta del materiale, per- 
mettendo nel contempo di mantenere 
molto bassa la quota d’adesione e di far 
avere a tutti gli iscritti dei vantaggi sicu- 
ramente superiori al valore venale della 
quota pagata. 

Per chi volesse, invece, legalizzare in 
pieno la cosa, non ha che da recarsi da 
un notaio con lo statuto del club e lui 
stesso provvederà a tutto con una spe- 
sa aggirantesi sulle 350.000 - 400.000 
lire. 

Spero che il tutto vi sia stato chiaro; in 
ogni caso resto a disposizione di qualsia- 
si persona o club che voglia ulteriori 
chiarimenti in merito. 

Gli annunci di ZX Club 

Cerco ragazzi in Genova possessori di 
ZX Spectrum per fondare un club con 
scopo di scambio di idee e software. 
Telefonare ore 12/14. 


Fabio DEGIPO 
via Piave 8/17b 
16145 GENOVA GE 

Giochi per ZX Spectrum 48K a Lit. 
1000. Richiedere lista a 
COMMODORE COMPUTER CLUB 
c/o Angelo ORLANDI 
via delle Albizzie 40 
00172 ROMA RM 
Tel. 06/288368 

Vendiamo programmi per ZX Spec- 
trum 16/48K a Lit. 3000 per i 16K e 
4000 per i 48K. 

Abbiamo circa 1000 programmi acqui- 
stati in Inghilterra. Per ricevere la lista 
inviare Lit. 2000 al 
SINCLAIR CLUB TODI 
c/o Jacopo TOFANETTI 
via S. Maria 21 
06059 TODI PG 
Tel. 075/882589 

Il SINCLAIR CLUB ROMA-TALENTI 
cerca nuovi soci per ampliare il club e 
comunica che ai soci è consentito l’ac- 
quisto di una raccolta di programmi con 
istruzioni a Lit. 28000 (rimborso spese). 
Per maggiori informazioni scrivere o te- 
lefonare a 

Massimo D’ASCENZO 
via F. Ovidio 109 
00137 ROMA RM 
TEL. 06/8280043 

Si è costituito a Vercelli, per gli utenti 

dello ZX Spectrum, il nuovo SINCLAIR 

CLUB. Per informazioni e chiarimenti 

scrivere a 

Marco GORIN 

corso Italia 57 

13100 VERCELLI VC 

Per Quantum Leap (QL) e Spectrum 
scambio idee e software originale. Inol- 
tre contatto possessori presenti e futuri 
di QL per fondare un user club. Rispon- 
do a tutti rapidamente. 

Roberto GHEZZI 

via Volontari del Sangue 202 

20099 SESTO SAN GIOVANNI MI 

Le notizie di ZX Club 

Il GRUPPO UTILIZZATORI COMPU- 
TER SINCLAIR NAPOLI ha in proget- 
to di organizzare, nel periodo postscola- 
stico, una gita in Inghilterra, per visitare 


gli stabilimenti della Sinclair Research 
e/o una delle numerose mostre di argo- 
mento informatico che vengono orga- 
nizzate in Gran Bretagna. Gli interessati 
possono rivolgersi direttamente al 

GRUPPO UTILIZZATORI COMPU- 
TER SINCLAIR 
c/o Roberto CHIMENTI 
via Luigi Rizzo 18 
80124 NAPOLI NA 

Approfittiamo dell’occasione per pub- 
blicare qui di seguito lo statuto del 
Gruppo: 

1) il “Gruppo Utilizzatori Computer Sin- 
clair” non si prefigge alcun fine di lucro; 

2) può entrare a far parte di detto grup- 
po chiunque possieda un computer Sin- 
clair o intenda acquistarlo in futuro; 

3) ogni appartenente al gruppo deve 
provvedere a mettere a disposizione de- 
gli altri la propria esperienza, collabo- 
rando allo sviluppo delle conoscenze in 
fatto di software e hardware; 

4) tutti coloro che siano in grado di farlo 
collaboreranno alla stesura di un bollet- 
tino periodico da distribuire gratuita- 
mente a tutti gli amici del gruppo; 

5) il bollettino avrà frequenza trimestra- 
le e dovrà servire essenzialmente all’in- 
cremento delle conoscenze di tutti i so- 
ci, nonché ad informarli degli sviluppi e 
della vita del gruppo; 

6) verrà sempre più ampliata una banca 
software, che sarà sempre a disposizio- 
ne dei soci che ne facciano richiesta; 

7) verranno promosse iniziative di grup- 
po, allo scopo di favorire al massimo 
incontri, scambi, esperienze software e 
hardware; 

8) a tutti coloro che vorranno entrare a 
far parte del gruppo verrà richiesta una 
somma di Lit. 15000 annue, che ver- 
ranno impiegate per l’acquisto di mate- 
riale utile a tutti e per spese generali; 

9) l’iscrizione al gruppo non vincola in 
alcun modo, per cui in qualsiasi momen- 
to lo si voglia si potrà chiedere lo sciogli- 
mento dall’iscrizione. 


ZX CLUB ospita questa volta un simpa- 
tico programma-test, autore Massimo 
D’Ascenzo del Sinclair Club Roma - 
Talenti (di cui più sopra appare l’indiriz- 
zo). Provatelo, e buon divertimento! 


Attenzione! 

Alcuni dei programmi presenti su questo numero di Supersinc si avvolgono di 
particolari tecniche di programmazione, che possono provocare inconvenienti 
durante il caricamento del programma ad essi successivo. 

Per evitare problemi, vi consigliamo di effettuare un reset (spegnendo e 
riaccendendo il computer o digitando RUN USR O o per per chi ha uno 
Spectrum Plus, azionando l’apposito pulsante) prima di ogni LOAD. 
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Il test del vostro futuro 
di Massimo e Cinzia D’Ascenzo 
Sinclair Club Roma - Talenti 
Versione per ZX Spectrum 48K. 


90 GO SUB 81 00 

100 PRINT AT 6 , 1 ; " { 5SG8 } { G8 } 

{ 3SG8 }{G8}{SG2}{ 2SG8 } {G8 } 
{5SG8} {7G8} {SG2} {SG8}" 

110 PRINT "{3G8} { SG8 } { 3G8 } 

{SG8} { 3G8 } {SG8} {5G8} {SG8} 

{ 5G8 } {SG8 } { 4G8 } { SG8 } " 

120 PRINT " { 3G8 } {SG8 } { 3G8 } 

{ 3SG8 } {G8 } {G7 } {SG8 } { SGl }. 
{3G8}{SG8}{4G8} { 3SG8 } { 3G8 } 
{SG8 } " 

130 PRINT ”{3G8} {SG8} { 3G8 } 

{SG8} { 5G8 } {SG8} {3G8} {SG8} 

{ 5G8 } {SG8 } { 4G8 } {SG8 } " 

140 PRINT " { 3G8 } {SG8 } {3G8 } 

{3SG8} {G8} {2SG8} {SG4} {3G8} 
{SG8 }{9G8}{SG2} {SG8 } {SGl }" 
150: PRINT AT 17,2;"® MASSIMO e 
CINZIA D'ASCENZO" 

160 PRINT AT 18, 2; "del SINCLAIR 
CLUB ROMA-TALENTI" 

165 PRINT AT 19, 2; "Via F. D'Ovi 
dio 109 - ROMA" 

170 PRINT AT 20,2; "Tel . 06/828. 
00.43" 

200 PAUSE 300: CLS 
210 PRINT : FLASH 1: PAPER 6: 
BORDER 6: INK 1: PRINT 
AT 8,7;"I L TEST " 

212 PRINT AT 13,0;"D E L V 0 S 
TRO FUTURO" 

21 9 FLASH 0 

220 PAUSE 150: CLS 

230 PRINT AT 4,0; "Questo TEST e 
' la trasposizione per il c 
omputer SPECTRUM di un tes 
t realizzato appositamente 
per una rivista specializ 
zata . " 

240 PRINT 

250 PRINT "I risultati ottenuti 
sono pertanto aitarne 

nte affidabili." 

260 PRINT 

270 PRINT "Un TEST psicologico 
non e' una verità' assolut 
a, pero' può' anche dars 
i che riesca a rivel 

arvi degli aspetti di voi 
stessi di cui non eravate 
consapevoli . " 


280 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS 

300 PRINT "IL TEST DEL VOSTR 

0 FUTURO" 

310 PRINT AT 2,0; "Verificate co 
n questo TEST, realizza 

to su basi scientif iche , il 
vostro atteggiamento verso 
ilfuturo, che vi renderà' p 
iu' o meno disponibili ai 
cambiamenti e alle occasion 
i." 

320 PRINT 

330 PRINT "Questo TEST ha lo se 
opo di f arviscopr ire qual 'e 
' 1 ' atteggiamentocon cui af 

frontate la vita di coppi 
a, il vostro modo di vedere 
il rapporto a due, di vivere 
la sessualità', l'amore, 

1 sentimenti." 

340 PRINT 

350 PRINT "Conoscendovi meglio, 
vivrete diversamente ci 
o' che il destinovi prepara 
, da soli o in coppia." 

360 PRINT AT 21,2;"PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS 

400 PRINT AT 7,0; "Ed eccoci ora 
alle DOMANDE: sono situazio 
ni che avrete trovato tan 
te volte nella realta'. Ch 
e cosa fareste? Scegliete 1 
a risposta che vi somi 

glia di piu' " 

410 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS 

600: PRINT INVERSE 1 ;AT 1,5;"D 
0 M A N D A N. 1 " 

605 PRINT INVERSE 0 

610 PRINT "Vi telefona un amico 
sposato: ilsuo matrimonio 
va veramente male. Voi. 

Il 

• • 

620 PAUSE 150 

632 PRINT AT 8,0; "a) Cercate di 

farlo distrarre porta 

ndolo ad una festa" 

633 PRINT 

634 PRINT "b) Lo invitate a cas 

a per parlare del 

problema" 

635 PRINT 
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636 PRINT "c) Avreste voglia di 

dirgli: ti avevo avvert 
ito. . . 

637 PRINT 


638 


639 

640 


PRINT "d) Cercate di dimost 
rargli che il matrimoni 

o si può' ancora salvare 

II 

PAUSE 50 

INPUT "QUALE RISPOSTA SCEGL 



I? ";E$ 




796 

PAUSE 

0: 

CLS 


650 

IF E$ = "A" 

OR 

E$="a" 

THEN 

800 

PRINT 

INVERSE 1 ;AT 1,5; 

"D 


LET E=5 : 

GO 

TO 690 



O M A 

N D 

A N. 3" 


660 

IF E$="B" 

OR 

E$="b" 

THEN 

805 

PRINT 

INVERSE 0 



LET E=3 

: GO 

i TO 690 


81 0 

PRINT 

"Il 

vostro partner 

de 

670 

IF E$="C" 

OR 

E$="C" 

THEN 


cide di 

andare all'este 


LET E=4: 

GO 

TO 690 



ro per 

un 

anno. Qual' e' 

la 

680 

IF E$="D" 

OR 

E$="d" 

THEN 


vostra reazione?" 



LET E = 1 : 

GO 

TO 690 


820 

PAUSE 

1 50 



685 

GO TO 600 




830 

PRINT 

AT 

8,0; "a) Non import 

690 

PAUSE 60: 

CLS 




a, l'aspetterete seren 

691 

PRINT AT 

6,5; 

"ECCO IL PUNTE 


amente 

II 




GGIO DI OGNI 

RISPOSTA 

831 

PRINT 





II 




832 

PRINT 

"b) 

Cominciate a guar 

692 

PRINT AT 

in 

; " a = 5 

b = 3 


darvi 


intorno" 



c=4 d=l 

ii 



833 

PRINT 




694 

PRINT AT 

19,2 

; "PREMI 

UN TAS 

834 

PRINT 

"c) 

Pensate che la 

se 


TO PER CONTINUARE" 

696 PAUSE 0: CLS 
700 PRINT INVERSE 1;AT 1,5;"D 



O M A N D 

A 

N. 2" 

835 

PRINT 




705 

PRINT INVERSE 0 

836 

PRINT "d) 

Mettete da parte 

71 0 

PRINT "La 

fedeltà' vi fa ve 


il danaro 


per 

raggiung 


nire in 


mente" 


erlo il piu' 


presto 

720 

PAUSE 1 50 




possibile 

II 



730 

PRINT AT 

io. 

0;"a) Una prigi 

839 

PAUSE 50 





one" 



840 

INPUT "QUALE 

RISPOSTA SCEGL 

731 

PRINT 




I? " ; G$ 




732 

PRINT "b) 

Una suola che si 

850 

IF G$ = "A" 

OR 

G$="a" 

THEN 


consuma nel 

tempo " 


LET G=0 : 

GO 

TO 890 


733 

PRINT 


860 

IF G$="B" 

OR 

G$="b" 

THEN 

734 

PRINT "c) 

Una stanza col ca 


LET G=4 : 

GO 

TO 890 



minetto 


acceso" 

870 

IF G$="C" 

OR 

G$ = "c" 

THEN 

735 

PRINT 




LET G=3 : 

GO 

TO 890 


736 

PRINT "d) 

Una piantina semp 

880 

IF G$="D" 

OR 

G$="d" 

THEN 


re bisognosa 

di cure" 


LET G= 2 : 

GO 

TO 890 


739 

PAUSE 50 



885 

GO TO 800 




740 

INPUT "QUALE 

RISPOSTA SCEGL 

890 

PAUSE 60: 

CLS 



I? " ; F$ 



891 

PRINT AT 

6,5; 

"ECCO 

IL PUNTE 

750 

IF F$="A" 

OR 

F$ = "a" THEN 


GGIO DI OGNI 


RISPOSTA 


LET F=5 : 

GO 

TO 790 


II 




760 

IF F$="B" 

OR 

F$="b" THEN 

892 

PRINT AT 

14,5 

; "a=0 

b = 4 


LET F= 3 : 

GO 

TO 790 


c=3 d=2 

II 



770 

IF F$="C" 

OR 

F$="c" THEN 

894 

PRINT AT 

19,2 

; "PREMI UN TAS 


LET F=0 : 

GO 

TO 790 


TO PER CONTINUARE" 



780 IF F$="D" OR F$="d" THEN 
LET F=2 : GO TO 790 
785 GO TO 700 

790 PAUSE 60: CLS 

791 PRINT AT 6, 5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 

II 

792 PRINT AT 14,5;"a=5 b=3 

c=0 d=2" 

794 PRINT AT 19, 2; "PREMI UN TAS 


parazione 
luire molto sul 
rapporto" 


potrebbe inf 
vostro 
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896 

PAUSE 0: ( 

CLS 


900 

PRINT INVERSE 1;AT 1,5;"D 


O M A N D 

A 

N. 4" 

905 

PRINT INVERSE 0 

910 

PRINT ""Dopo 

di me il diluv 


io". Questa frase storica v 


i sembra. 

II 

• • 


92 0 

PAUSE 1 00 



930 

PRINT AT 

o 

o 

;"a) Ridicola" 

931 

PRINT 



932 

PRINT ”b) 

Giusta" 

933 

PRINT 



934 

PRINT "c) 

Esagerata" 

935 

PRINT 



936 

PRINT "d) 

Parziale" 

939 

PAUSE 50 



940 

INPUT "QUALE 

RISPOSTA SCEGL 


I? " ;H$ 



950 

IF H$ = "A" 

OR 

H$="a" THEN 


LET H= 1 : 

GO 

TO 990 

960 

IF H$="B" 

OR 

H$="b" THEN 


LET H=5 : 

GO 

TO 990 

970 

IF H$="C" 

OR 

H$="c" THEN 


LET H=2 : 

GO 

TO 990 

980 

IF H$="D" 

OR 

H$="d" THEN 


LET H=3 : 

GO 

TO 990 

985 

GO TO 900 



990 

PAUSE 60: 

CLS 

991 

PRINT AT 

6,5; 

"ECCO IL PUNTE 


GGIO DI OGNI RISPOSTA 


ii 


1034 PRINT "c) Giocano per far d 
ivertire il bambino, che 

forse e' loro figlio" 

1035 PRINT 

1036 PRINT "d) Anche se lo nasco 

nde , uno dei due si e 

' stancato di questo 

stupido gioco" 

1039 PAUSE 50 

1040 INPUT "QUALE RISPOSTA SCEGL 

I ? " ; I $ 

1 050 IF 1$ = "A" OR 1$ = "a" THEN 
LET 1 = 3 : GO TO 1 090 
1 060 IF 1$ = "B " OR I$ = "b" THEN 
LET 1=2: GO TO 1090 
1070 IF I$="C" OR I$="C" THEN 
LET 1 = 1 : GO TO 1090 
1080 IF I$="D" OR I$="d" THEN 
LET 1=5: GO TO 1090 
1 085 GO TO 1 000 

1090 PAUSE 60: CLS 

1091 PRINT AT 6, 5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 

II 

1092 PRINT AT 14,5;"a=3 b=2 

c=l d=5" 

1094 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

1096 PAUSE 0: CLS 
1100 PRINT INVERSE 1;AT 1,5;"D 
O M A N D A N. 6" 

1105 PRINT INVERSE 0 


992 PRINT AT 14,5;"a=l b=5 

c=2 d=3" 

994 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

996 PAUSE 0: CLS 

1000 PRINT INVERSE 1 ;AT 0,5; "D 
O M A N D A N. 5" 

1005 PRINT INVERSE 0 

1010 PRINT "Ai giardini pubblici 
un uomo e una donna sono 
impegnati in un tiro alla 
fune, mentre un bambi 

no li osserva. Questa scena 
a cosa vi fa pensare?" 

1020 PAUSE 100 

1030 PRINT AT 9,0;"a) La vita di 

coppia e' sempre un ti 

ra-e-molla" 

1031 PRINT 

1032 PRINT "b) Basta poco per di 

vertirsi, quando ci si 

vuole bene" 

1033 PRINT 


1110 PRINT "Con chi passereste u 
n Natale in montagna?" 

1120 PAUSE 100 

1130 PRINT AT 10,0; "a) Con un ve 
echio amico" 

1131 PRINT 

1132 PRINT "b) Con il vostro par 
tner " 

1133 PRINT 

1134 PRINT "c) Con il vostro par 

tner e la vostra famig 

lia" 

1135 PRINT 

1136 PRINT "d) Con una persona i 

nteressante conosciuta d 

a poco" 

1139 PAUSE 50 

1140 INPUT "QUALE RISPOSTA SCEGL 
I? " ;L$ 

1150 IF L$ = " A" OR L$ = "a" THEN 
LET L=3 : GO TO 1190 

1160 IF L$="B" OR L$="b" THEN 
LET L=2 : GO TO 1 1 90 
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1170 IF L$="C" OR L$="c" THEN 
LET L=0 : GO TO 1 1 90 
1180 IF L$="D" OR L$="d" THEN 
LET L=4 : GO TO 1190 


1185 GO TO 1100 

1190 PAUSE 60: CLS 

1191 PRINT AT 6,5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 

II 


1192 PRINT AT 14,5;"a=3 b=2 

c=0 d=4 " 

1194 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

1196 PAUSE 0: CLS 

1200 PRINT INVERSE 1;AT 1,5;"D 
O M A N D A N. 7" 

1205 PRINT INVERSE 0 

1210 PRINT "Quali di queste copp 
ie celebri preferite?" 

1220 PAUSE 100 

1230 PRINT AT 10,0;"a) Ulisse e 
Penelope" 

1231 PRINT 

1232 PRINT "b) Antonio e Cleopat 
ra" 

1233 PRINT 

1234 PRINT "c) Renzo e Lucia" 

1235 PRINT 

1236 PRINT "d) Lancillotto e Gin 
evra" 

1 239 PAUSE 50 

1 240 INPUT "QUALE RISPOSTA SCEGL 
I? " ; M$ 


1 250 

IF M$="A" 

OR 


LET M=2 : 

GO 

1 260 

IF M$ = "B " 

OR 


LET M= 3 : 

GO 

1 270 

IF M$="C" 

OR 


LET M=0 : 

GO 

1 280 

IF M$="D" 

OR 


LET M=4 : 

GO 

1 285 

GO TO 1 200 

1 290 

PAUSE 60: 

CLS 

1 291 

PRINT AT 

6,5; 


GGIO DI OGNI 


M$ = " a " THEN 
TO 1 290 
M$="b" THEN 
TO 1 290 
M$="c" THEN 
TO 1290 
M$="d" THEN 
TO 1 290 


"ECCO IL PUNTE 
RISPOSTA 


1292 PRINT AT 14,5;"a=2 b=3 

c=0 d=4 " 

1294 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

1296 PAUSE 0: CLS 
1300 PRINT INVERSE 1 ;AT 1,5;"D 
O M A N D A N. 8" 

1305 PRINT INVERSE 0 

1310 PRINT "I genitori del vostr 


o partner viinvitano per un 
a settimana da loro in ca 
mpagna . " 

1320 PAUSE 100 

1330 PRINT AT 8,0; "a) Ci andate 

felici di poterli conos 

cere meglio" 

1331 PRINT 

1332 PRINT ”b) Inventate un impe 

gno per non andare, timo 

rosi di essere "incast 

rati"" 

1333 PRINT 

1334 PRINT "c) Ci andate per far 

vedere che non vi senti 

te in alcun modo vincola 



ti" 



1 335 

PRINT 



1 336 

PRINT "d) 

Ci 

andate con la 


speranza 


che non sian 


o insopportabili" 

1 339 

PAUSE 50 



1 340 

INPUT "QUALE 

RISPOSTA SCEGL 


I? " ;N$ 



1 350 

IF N$ = "A" 

OR 

N$ = "a" THEN 


LET N=0 : 

GO 

TO 1390 

1 360 

IF N$="B" 

OR 

N$="b" THEN 


LET N=5 : 

GO 

TO 1 390 

1 370 

IF N$="C" 

OR 

N$="c" THEN 


LET N=4 : 

GO 

TO 1 390 

1 380 

IF N$="D" 

OR 

N$="d" THEN 


LET N= 3 : 

GO 

TO 1 390 

1 385 

GO TO 1 300 


1 390 

PAUSE 60: 

CLS 

1 391 

PRINT AT 

6,5 

; "ECCO IL PUNTE 


GGIO DI OGNI 

II 

RISPOSTA 

1 392 

PRINT AT 

14, 

5 ; "a=0 b=5 


c = 4 d = 3 

II 


1 394 

PRINT AT 

19, 

2; "PREMI UN TAS 


TO PER CONTINUARE" 

1 396 

PAUSE 0: 

CLS 


1 400 

PRINT INVERSE 1 ;AT 1,5;"D 


0 M A N D 

A 

N. 9" 


1405 PRINT INVERSE 0 

1410 PRINT "In "Via col vento” e 
ravate dallaparte di:" 

1420 PAUSE 100 

1430 PRINT AT 10,0; "a) Rhett But 
ler (Clark Gable) " 

1431 PRINT 

1432 PRINT "b) Rossella O'Hara ( 

Vivien Leigh)" 

1433 PRINT 

1434 PRINT "c) Melania (Olivia D 
e Havilland)" 
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1 435 

PRINT 




1 436 

PRINT "d) 

Ashley 

(Leslie Ho 


ward) " 




1 439 

PAUSE 50 




1 440 

INPUT "QUALE 

RISPOSTA SCEGL 


I? " ; 0$ 




1 450 

IF 0$ = "A" 

OR 

0$ = 

"a" THEN 


LET 0=4: 

GO 

TO 

1 490 

1 460 

IF 0$="B" 

OR 

0$ = 

"b" THEN 


LET 0=2: 

GO 

TO 

1 490 

1 470 

IF 0$="C" 

OR 

0$ = 

"c" THEN 


LET 0=1 : 

GO 

TO 

1 490 

1 480 

IF 0$="D" 

OR 

0$ = 

"d" THEN 


LET 0=3: 

GO 

TO 

1 490 

1 485 

GO TO 1 400 



1 490 

PAUSE 60: 

CLS 


1 491 

PRINT AT 

6,5 

; "ECCO IL PUNTE 


GGIO DI OGNI 

II 


RISPOSTA 

1 492 

PRINT AT 

14, 

5; "a 

= 4 b=2 


c = 1 d = 3 

II 



1 494 

PRINT AT 

19, 

2; "PREMI UN TAS 


TO PER CONTINUARE" 

1 496 

PAUSE 0: 

CLS 




1500 PRINT INVERSE 1 ;AT 0,5;"D 
0 M A N D A N. 10" 

1510 INVERSE 0: PRINT "E' una se 
ra d'inverno e sta piov 

endo a dirotto. In una 
cabina telefonica una raga 
zza sta chiamando il suo 
partner. Secondo voi a co 
sa pensa la ragazza?" 


1520 PAUSE 100 

1530 PRINT AT 7,0;"a) Stasera to 
rnerei volentieri a casa, 

invece mi sono 
impegnata ad uscire" 

1531 PRINT 

1532 PRINT "b) Non vedo l'ora di 

stare a casa sua, tu 

tti e due al caldo" 

1533 PRINT 

1534 PRINT "c) Adesso gli dico c 

he forse questa sera 

e 'meglio non vederci 

II 

1535 PRINT 

1536 PRINT "d) Vediamo se ha in 

mente qualche post 

o simpatico dove andare" 

1 539 PAUSE 50 

1540 INPUT "QUALE RISPOSTA SCEGL 
I? " ; P$ 


1 550' IF P$ = "A" OR P$ = "a" THEN 
LET P=2: GO TO 1590 
1560 IF P$="B" OR P$="b" THEN 
LET P=1 : GO TO 1 590 

1570 IF P$="C" OR P$="c" THEN 
LET P=4 : GO TO 1590 
1580 IF P$="D" OR P$="d" THEN 
LET P=3 : GO TO 1590 
1 585 GO TO 1 500 

1590 PAUSE 60: CLS 

1591 PRINT AT 6, 5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 


1 592 

1 594 

1 596 
1 600 

1 605 
1 61 0 

1 620 
1 630 


PRINT AT 14,5;"a=2 b=l 
c=4 d=3" 

PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

PAUSE 0 : CLS 

PRINT INVERSE 1;AT 1,5;"D 
OMANDA N. 11" 

PRINT INVERSE 0 

PRINT "Non si può' vivere s 

enza" 

PAUSE 100 

PRINT AT 10,0; "a) Avventura 


1 631 

PRINT 



1 632 

PRINT "b) 

Serenità ' " 

1 633 

PRINT 



1 634 

PRINT "c) 

Allegria" 

1 635 

PRINT 



1 636 

PRINT "d) 

Sicurezza" 

1 639 

PAUSE 50 



1 640 

INPUT "QUALE 

RISPOSTA SCEGL 


i? ";Q$ 



1 650 

IF Q$="A" 

OR 

Q$="a" THEN 


LET Q=4 : 

GO 

TO 1690 

1 660 

IF Q$ = "B " 

OR 

Q$="b" THEN 


LET Q=0 : 

GO 

TO 1690 

1 670 

IF Q$="C" 

OR 

Q$="c" THEN 


LET Q=3 : 

GO 

TO 1690 

1 680 

IF Q$="D" 

OR 

Q$="d" THEN 


LET Q=1 : 

GO 

TO 1690 

1 685 

GO TO 1600 

. 

1 690 

PAUSE 60: 

CLS 

1 691 

PRINT AT 

6,5; 

"ECCO IL PUNTE 


GGIO DI OGNI 

II 

RISPOSTA 

1 692 

PRINT AT 

1 4,5 

; "a=4 b=0 


C=3 d=l 

II 


1 694 

PRINT AT 

1 9,2 

:; "PREMI UN TAS 


TO PER CONTINUARE" 

1696 PAUSE 0: CLS 
1700 PRINT INVERSE 1 ;AT 1,5;"D 
OMANDA N. 12" 
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1705 PRINT INVERSE 0 

1710 PRINT "Il giorno del vostro 
compleanno" 

1720 PAUSE 100 

1730 PRINT AT 8,0;"a) E' un gior 

no come un altro, non f 

ate niente di speciale" 

1731 PRINT 

1732 PRINT "b) Lo festeggiate in 

casa con gli amici" 

1733 PRINT 

1734 PRINT "c) Andate a cena fuo 

ri con il vostro partn 

er " 

1735 PRINT 

1736 PRINT "d) Niente festa: sie 



te 


invecchiati 


di un anno" 


1 739 

PAUSE 50 



1 740 

INPUT "QUALE 

RISPOSTA SCEGL 


I? " ; R$ 



1 750 

IF R$ = "A" 

OR 

R$="a" THEN 


LET R=2 : 

GO 

TO 1790 

1 760 

IF R$="B" 

OR 

R$="b" THEN 


LET R=3 : 

GO 

TO 1790 

1 770 

IF R$="C" 

OR 

R$ = "c" THEN 


LET R=1 : 

GO 

TO 1790 

1 780 

IF R$="D" 

OR 

R$="d" THEN 


LET R=4 : 

GO 

TO 1790 

1 785 

GO TO 1 700 


1790 

PAUSE 60: 

CLS 

1 791 

PRINT AT 

6,5 

; "ECCO IL PUNTE 


GGIO DI OGNI 

IV 

RISPOSTA 

1 792 

PRINT AT 

14, 

5 ; "a=2 b=3 


c=l d=4 

VI 


1794 

PRINT AT 

19, 

2; "PREMI UN TAS 


TO PER CONTINUARE" 

1 796 

PAUSE 0: 

CLS 


1 800 

PRINT INVERSE 1 ;AT 1,5;"D 


0 M A N D 

A 

N. 13" 


1805 PRINT INVERSE 0 

1810 PRINT "Quali di questi aspe 
tti della vita di coppia 
ritenete piu' importanti 

?" 

1820 PAUSE 100 

1830 PRINT AT 9,0; "a) Stare bene 

e divertirsi insie 

me" 

1831 PRINT 

1832 PRINT "b) Potersi consolare 

nei momenti tristi" 

1 833 PRINT 


1834 PRINT "c) Far fronte comune 

contro i problemi del 

la vita" 

1835 PRINT 

1836 PRINT "d) Essersi di stimol 

o reciprocamen 

te" 

1839 PAUSE 50 

1840 INPUT "QUALE RISPOSTA SCEGL 



I? " ; S$ 




1 850 

IF S$ = "A" 

OR 

S$="a" 

THEN 


LET S=5 : 

GO 

TO 1890 


1 860 

IF S$="B" 

OR 

S$="b" 

THEN 


LET S=2 : 

GO 

TO 1890 


1 870 

IF S$="C" 

OR 

S$="c" 

THEN 


LET S = 1 : 

GO 

TO 1890 


1 880 

IF S$="D" 

OR 

S $ = " d " 

THEN 


LET S=3 : 

GO 

TO 1 890 


1 885 

GO TO 1 800 



1 890 

PAUSE 60: 

CLS 


1 891 

PRINT AT 

6,5 

; "ECCO IL PUNTE 


GGIO DI OGNI 

VI 

RISPOSTA 

1 892 

PRINT AT 

14, 

5 ; "a=5 

b = 2 


c=l d=3 

VI 



1 894 

PRINT AT 

19, 

2; "PREMI 

UN TAS 


TO PER CONTINUARE" 


1 896 

PAUSE 0: 

CLS 



1 900 

PRINT INVERSE 1 ; AT 

1 ,5;"D 


O M A N D 

A 

N. 14" 


1905 PRINT INVERSE 0 

1910 PRINT "La fedeltà' nella co 
ppia è ' . . . " 

1920 PAUSE 100 

1930 PRINT AT 9,0; "a) Un fatto n 
aturale, non ci si può' 
fare niente" 

1931 PRINT 

1932 PRINT "b) Soffocante e noio 
sa" 

1933 PRINT 

1934 PRINT "c) Superata" 

1935 PRINT 

1936 PRINT "d) Indispensabile, q 

uando non c'e' non e' 

vero amore" 

1939 PAUSE 50 

1940 INPUT "QUALE RISPOSTA SCEGL 
I? " ; T$ 

1 950 IF T$ = "A" OR T$ = "a" THEN 
LET T=1 : GO TO 1 990 

1960 IF T$="B" OR T$="b" THEN 
LET T=5 : GO TO 1990 
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1970 IF T$="C" OR T$="c” THEN 
LET T=4 : GO TO 1990 
1980 IF T$="D" OR T$="d" THEN 
LET T=2 : GO TO 1990 
1 985 GO TO 1 900 

1990 PAUSE 60: CLS 

1991 PRINT AT 6, 5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 

II 

1992 PRINT AT 14,5;"a=l b=5 

c=4 d=2" 

1994 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

1996 PAUSE 0: CLS 

2000 PRINT INVERSE 1 ;AT 0,5;"D 
O M A N D A N. 15" 

2010 PRINT "Un violino, un leggi 

0 con sopra uno spartito, u 
na ragazza in piedi con 
lo sguardo perso nel vuoto 
. A cosa pensa la ragazza?" 

2020 PAUSE 100 

2030 PRINT AT 6,0; "a) Il lungo e 

sercizio e' stato propr 

io utile: ora potrò' 

dare concerti con grande 
tranquillità ' " 

2031 PRINT 

2032 PRINT "b) La musica non e'p 

01 tutto: quante cose 

ho dovuto sacriti 

care nella mia vita pe 

r essa!" 

2033 PRINT 

2034 PRINT "c) Ma dove sara' fin 

ito il violinista?" 


2035 

2036 


2039 

2040 

2050 

2060 

2070 

2080 

2085 

2090 


Perfeziono quest' 
passaggio e 
pronta per il 


PRINT 
PRINT "d) 
ultimo 
poi saro' 
concerto" 

PAUSE 50 

INPUT "QUALE RISPOSTA SCEGL 
I? " ;U$ 

IF U$ = "A" OR U$ = "a" THEN 
LET U=0 : GO TO 2090 
IF U$ = "B " OR U$ = "b" THEN 
LET U=2 : GO TO 2090 
IF U$="C" OR U$="c" THEN 
LET U=5 : GO TO 2090 
IF U$="D" OR U$="d" THEN 
LET U=3 : GO TO 2090 
GO TO 2000 
PAUSE 60: CLS 


2091 PRINT AT 6, 5; "ECCO IL PUNTE 
GGIO DI OGNI RISPOSTA 


2092 PRINT AT 14,5;"a=0 b=2 

c=5 d=3" 

2094 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

2096 PAUSE 0: CLS 


21 00 

PRINT INVERSE 1;AT 1,5,*"D 


O M A N D 

A 

N. 16" 

21 05 

PRINT INVERSE 0 

21 1 0 

PRINT "Amare 

significa ... " 

21 20 

PAUSE 100 



21 30 

PRINT AT 

8,0 

;"a) Ncrn dover 


mai dire 

"mi 

dispi 


ace~" 



21 31 

PRINT 



21 32 

PRINT "b) 

Vivere un giorno 


da leoni" 



21 33 

PRINT 



21 34 

PRINT "C) 

Inebriarsi di sen 


sazioni 


intense" 

21 35 

PRINT 



21 36 

PRINT "d) 

Stimarsi e rispet 


tarsi a 


vicenda" 

21 39 

PAUSE 50 



21 40 

INPUT "QUALE 

RISPOSTA SCEGL 


I? " ; V$ 



21 50 

IF V$ = "A" 

OR 

V$ = "a" THEN 


LET V= 1 : 

GO 

TO 2190 

21 60 

IF V$="B" 

OR 

V$="b" THEN 


LET V=5 : 

GO 

TO 21 90 

21 70 

IF V$="C" 

OR 

V$="c" THEN 


LET V=4 : 

GO 

TO 21 90 

21 80 

IF V$="D" 

OR 

V$ = "d" THEN 


LET V=2 : 

GO 

TO 21 90 

21 85 

GO TO 21 00 



2190 PAUSE 60: CLS 

2191 PRINT AT 6, 5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 

II 

2192 PRINT AT 14,5;"a=l b=5 

c=4 d=2" 

2194 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

2196 PAUSE 0: CLS 
2200 PRINT INVERSE 1 ;AT 1,5;"D 
O M A N D A N. 17" 

2205 PRINT INVERSE 0 
2210 PRINT "Il miglior amico del 
1 ' uomo e ' . . . " 

2220 PAUSE 100 

2230 PRINT AT 10,0;"a) Se stesso 

II 
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2231 

PRINT 



2331 

2232 

PRINT "b) 

Una donna" 

2332 

2233 

PRINT 




2234 

PRINT "c) 

Un 

altro uomo" 


2235 

PRINT 




2236 

PRINT "d) 

II 

cane" 

2333 

2239 

PAUSE 50 



2334 

2240 

INPUT "QUALE 

RISPOSTA SCEGL 



I? " ; X$ 




2250 

IF X$ = "A" 

OR 

X$="a" THEN 

2335 


LET X=4 : 

GO 

TO 2290 

2336 

2260 

IF X$="B" 

OR 

X$="b" THEN 



LET X=1 : 

GO 

TO 2290 


2270 

IF X$="C" 

OR 

X$ = "c" THEN 



LET X=3 : 

GO 

TO 2290 


2280 

IF X$="D" 

OR 

X$="d" THEN 

2339 


LET X=2 : 

GO 

TO 2290 

2340 

2285 

GO TO 2200 


2290 

PAUSE 60: 

CLS 

2350 

2291 

PRINT AT 

6,5 

; "ECCO IL PUNTE 


GGIO DI OGNI 

II 

RISPOSTA 

2360 

2292 

PRINT AT 
c=3 d=2 

14, 

II 

5 ; " a = 4 b=l 

2370 

2294 

PRINT AT 

19 , 

2; "PREMI UN TAS 

2380 


TO PER CONTINUARE" 

2296 

PAUSE 0: 

CLS 




2300 PRINT INVERSE 1 ;AT 0 f .5;"D 
0 M A N D A N. 18" 

2305 PRINT INVERSE 0 
2310 PRINT "~Per voler bene a qu 
alcuno bisogna volerne 

prima di tutto a se' stes 
si~. Siete d'accordo?" 

2320 PAUSE 100 

2330 PRINT AT 6,0; "a) No, la per 
sona amata e' la cosa 

piu ' importante e viene 
prima di tutto" 


2385 

2390 

2391 


2392 

2394 

2396 

2400 


La cassetta allegata a questo numero 
di Supersinc contiene, in omaggio, un 
programma realizzato per lo 
Spectrum 48K: 

« FOTO I » 

realizzato da Enrico Franceschetti del 
GRUPPO UTILIZZATORI 
COMPUTER SINCLAIR NAPOLI. 
Per maggiori informazioni, 
rivolgersi al: 

G.U.C.S. 

c/o Roberto Chimenti 
via Luigi Rizzo, 18 
80124 Napoli NA 
tei. 081/7623121 


2405 
241 0 


2420 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2439 

2440 

2450 


PRINT 

PRINT "b) Si, un sano amor 
proprio permette di 

condurre bene il rapport 

o" 

PRINT 

PRINT "c) Potrebbe essere u 
na buona scusa per il 

proprio egoismo" 

PRINT 

PRINT "d) Si, perche' in de 
terminati momenti di u 

n rapporto e' necessa 

rio essere un po' eg 

oisti" 

PAUSE 50 


INPUT 

"QUALE 

I? 

Il • 
r 

Y$ 


IF 

Y$ = 

"A" 

OR 

LET Y 

=0: 

GO 

IF 

Y$ = 

"B" 

OR 

LET Y 

= 3: 

GO 

IF 

Y$ = 

"C" 

OR 

LET Y 

= 1 : 

GO 

IF 

Y$ = 

"D" 

OR 

LET Y 

= 5: 

GO 


RISPOSTA SCEGL 

Y$="a" THEN 
TO 2390 
Y$="b" THEN 
TO 2390 
Y$="c" THEN 
TO 2390 
Y$="d" THEN 
TO 2390 


GO TO 2300 
PAUSE 60: CLS 

PRINT AT 6, 5; "ECCO IL PUNTE 
GGIO DI OGNI RISPOSTA 


PRINT AT 14,5; "a=0 b=3 

c=l d=5" 

PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

PAUSE 0: CLS 

PRINT INVERSE 1 ;AT 1,5;"D 
0 M A N D A N. 19" 

PRINT INVERSE 0 

PRINT "Il vostro partner id 

eale deve essere" 

PAUSE 100 

PRINT AT 10,0; "a) Imprevedi 
bile" 

PRINT 

PRINT "b) Sincero" 

PRINT 

PRINT "c) Passionale" 

PRINT 

PRINT "d) Disponibile" 

PAUSE 50 

INPUT "QUALE RISPOSTA SCEGL 
I? " ; W$ 

IF W$ = "A" OR W$ = "a" THEN 
LET W=4 : GO TO 2490 
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2460 IF W$ = "B" OR W$ = "b" THEN 
LET W= 1 : GO TO 2 490 
2470 IF W$="C" OR W$=”c" THEN 
LET W=3 : GO TO 2490 
2480 IF W$="D" OR W$="d" THEN 
LET W=2 : GO TO 2490 
2485 GO TO 2400 

2490 PAUSE 60: CLS 

2491 PRINT AT 6, 5; "ECCO IL PUNTE 

GGIO DI OGNI RISPOSTA 

II 

2492 PRINT AT 14,5;"a=4 b=l 

c=3 d=2" 

2494 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

2496 PAUSE 0: CLS 
2500 PRINT INVERSE 1 ;AT 1,5;"D 
O M A N D A N. 20" 

2505 PRINT INVERSE 0 
2510 PRINT "In una stanza un uom 
o e una donna sono abbr 

acciati. Si guardano f 

issi negli occhi. Uno dei d 
ue sta dicendo..." 

2520 PAUSE 100 

2530 PRINT AT 9,0; "a) Purtroppo 
non posso rimanere: ho gi 

a' preso un altro 
impegno" 


2531 

PRINT 



2532 

PRINT "b) 

Per 

la gita di do 


menica mi 


sembra che t 


utto sia 

a posto" 

2533 

PRINT 



2534 

PRINT "c) 

Certo che ti amo. 


ma non e 

1 

questo il pr 


oblema" 



2535 

PRINT 



2536 

PRINT "d) 

Ogni volta e' piu 


• bello" 



2539 

PAUSE 50 



2 54 0 

INPUT "QUALE 

RISPOSTA SCEGL 


I? " ; Z$ 



2550 

IF Z$="A" 

OR 

Z$="a" THEN 


LET Z = 4 : 

GO 

TO 2590 

2560 

IF Z$="B" 

OR 

Z$="b" THEN 


LET Z=0 : 

GO 

TO 2590 

2570 

IF Z$="C" 

OR 

Z$="c" THEN 


LET Z=3 : 

GO 

TO 2590 

2580 

IF Z$="D" 

OR 

Z$="d" THEN 


LET Z=2 : 

GO 

TO 2590 

2585 

GO TO 2500 


2590 

PAUSE 60: 

CLS 

2591 

PRINT AT 

6,5; 

"ECCO IL PUNTE 


GGIO DI OGNI RISPOSTA 


II 


2592 PRINT AT 14,5;"a=4 b=0 

c=3 d=2" 

2594 PRINT AT 19, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

2596 PAUSE 0: CLS 
6000 LET K=E+F+G+H+ I+L+M+N+O+P+Q 
+R+S+T+U+V+X+Y+W+Z 

6100 PRINT AT 7 , 1 ; " { 3SG8 } {G8 } 
{SG8 }{G8}{SG2}{ 2SG8 } { G8 } 
{SG8 } { G8 } {SG8 } {G8 } {SG8 } 

{ 2G8 } {3SG8} {G8} {3SG8} { G8 } 

{ 3SG8 } { G8 } {SG8 } " 

6101 PRINT AT 8 , 1 ; " { SG8 } { G8 } 

{SG8 }{G8}{SG8}{G8} {SG8 } 

{ 3G8 } {SG8 }{G8}{SG8}{G8} 

{ SG8 }{3G8}{SG8}{2G8}{ SG8 } 

{ G8 } { SG8 }{2G8}{SG8}{2G8} 
{SG8 } " 

6102 PRINT AT 9 , 1 ; " { 3SG8 } { G8 } 
{SG8} {G8H3SG8} {G8}{SG8} 

{G8 } {SG8 } {G8 } {SG8} {3G8 } 

{SG8 } { 2G8 } { 3SG8 } { 2G8 } {SG8 } 

{ 2G8 } {SG8 } " 

6103 PRINT AT 10,1 ; " { SG8 } {G7 } 

{ SG1 } { G8 } { SG8 } { 3G8 } { SG8 } 
{G8}{SG8}{G8}{SG8}{G8} 
{SG8}{3G8}{SG8}{2G8} {SG8 } 
{G8}{SG8}{2G8}{SG8}{2G8} 

{ SG8 } " 


6104 PRINT AT 1 1 , 1 ; " { SG8 } { Gl } 
{SG8 } { G8 } {SG8 } { G8 } {2SG8 } 
{SG4}{G8} { 3SG8 } { G8 } { 3SG8 } 
{G8 } {SG8 } { 2G8 } {SG8 } { G8 } 

{SG8 }{2G8}{SG8}{2G8} {SG8 } " 

6200 PRINT AT 16, 5; "UN ATTIMO DI 
PAZIENZA" 

6210 PRINT AT 18, 2; "STO ELABORAN 
DO I RISULTATI" 

6250 PAUSE 200: CLS 

6300 PRINT AT 6, 5; "IL PUNTEGGIO 
DA TE" 

6301 PRINT AT 9 , 1 0 ; "OTTENUTO" 

6302 PRINT AT 12, 7; "E' DI ";K;" 



PUNTI" 



631 0 

IF K>=1 2 AND 
GO TO 7000 

K< = 2 2 

THEN 

6320 

IF K> = 2 3 AND 
GO TO 71 00 

K< = 3 6 

THEN 

6330 

IF K>=37 AND 
GO TO 7200 

K< = 50 

THEN 

6340 

IF K>=51 AND 
GO TO 7300 

K< = 64 

THEN 

6350 

IF K>=65 AND 
GO TO 7400 

00 

r- 

li 

V 

THEN 
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6360 

IF K> 

= 79 

THEN 

GO 

TO 

7500 


7000 

PRINT 

AT 

16,5; 

"TU 

SEI 

UN 

IN 


SEPARABILE" 





7001 

PRINT 

AT 

20,2; 

"PREMI 

UN TAS 


TO PER CONTINUARE 

II 



7002 

PAUSE 

0: 

CLS 





701 0 

PRINT 

AT 

0,5;" 

I N 

S E 

P A 

R 


A B 

I L 

I" 





701 5 

PRINT 

AT 

1,8;" 

(Da 

1 2 

a 22 

P 


unti ) 

ti 






7020 

PRINT 

AT 

3,0;" 

La 

tendenza 

P 


rimaria dell'Iris 

eparabile e' quella di ave 
re una sola persona che con 
tanella sua vita. E con que 
sta persona, in genere dopo 
un buon numero di anni 
di fidanzamento, decide di 
sposarsi. La coppia forma 
ta da questi 

“impegnatissimi" e', quasi 
sempre, molto unita, s 
olidale e compatta contro q 
ualsiasi difficolta' 

della vita. E' raro che nel 
corso della tranquilla vi 
ta a due degli Inseparabili 
siver if ichino novità' o 

imprevisti: niente 
tradimenti ne' grandi sla 
nei di passione.” 

7022 GO SUB 8000 

7024 PRINT AT 3 , 0 ; "L ' atmosfera e 
' tranquilla e affettuo 

sa, il clima e' sereno, tut 
to scorre via senza scosson 
i . L ' Inseparabile si dedica 
soprattutto al propr 
io lavoro, ai propri inter 
essi e ai figli, che in gen 
ere vengono su senza probi 
emi . Tra i due partner c'e' 
molto rispetto reciproco, u 
na tranquilla accettazion 
e della divisione dei com 
piti e dei ruoli e la c 

ertezza di una vecchia 

ia serena." 

7040 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : GO TO 7600 

7100 PRINT AT 16, 5; "TU SEI UN IM 
PEGNATO" 

7101 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE" 


7102 PAUSE 0: CLS 

7110 PRINT AT 0 , 5 ; " I M P E G N A 
T I" 

7115 PRINT AT 1,5; "(Da 23 a 36 p 
unt i ) " 

7120 PRINT AT 2,0; "Gli Impegnati 
non sono assillatidalla pa 
ura di restare soli. Han 
no un certo orientamento 
ottimistico nei confronti 
delle altre persone e dell 
a vita in generale; hanno 
avuto le loro esperienze 
piu' o meno felici, con t 
raumi e frustrazioni ma 
anche con momenti molto int 
ensi e significativi. L'Imp 
egnato nonha tendenze monog 
ame come l'Inseparabi 

lene' 1 ' insod 

disfazione latente del Ca 
uto. Ha pero' una propensio 
ne a "stringere" i rapporti 
, nel senso di una tensio 
ne progressiva e 

costante verso l'ampliam 
ento e l'ap 

prof ondimento di essi.": 

GO SUB 8000 

7122 PRINT AT 1,0; "Questa caratt 
eristica si accentua 

in genere con il pas 

sare degli anni. La 

mentalità' ricettiva ed 
aper ta~permette agli Impegn 
ati di operare una sei 

r ezione tra i possibili 

partner che incontra, senza 
accontentarsi del primo (o 
ultimo) venuto: si può' ess 
ere tranquilli che non si 
fermerà' fin quanto non av 
ra' trovato la persona "giù 
sta". Beh, inutile dire eh 
e ogni tanto si sbaglia. Ma 
non c'e' da preoccuparsi, 
e' sempre pronto a ricominc 
iare la ricerca.": GO SUB 8 
000 

7124 PRINT AT 1,0; "Crede inoltre 
nel sentimento senza ca 
dere nel sen 

timentalismo . Affronta la 
situazione di coppia in m 
odo costruttivo. Valuta 
positivamente i 
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1 matrimonio, anche se i 
n maniera critica e disin 
cantata. Da molti punti di 
vista costituisce un ottimo 
partner . " 

7140 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : GO TO 7600 

7200 PRINT AT 16,0; "TU SEI UN IM 
PEGNATO CON GIUDIZIO" 

7201 PRINT AT 20,2;"PREMI UN TAS 
TO PER CONTINUARE" 

7202 PAUSE 0: CLS 

7210 PRINT AT 0 , 5 ;" IMPEGNATI CO 
N GIUDIZIO" 

7215 PRINT AT 1,8; "(Da 37 a 50 p 
unti ) " 

7220 PRINT AT 2,0; "Anche se non 
giudica la vita alla str 
egua di una roulette, l'I 
mpegnato con Giudizio 

riconosce che le circosta 
nze spesso pesano piu' d 
i quanto si vorrebbe. Cosic 
che', pur essendotendenzial 
mente portato ad una vita 
di coppia, non si 
stupirebbe piu' di tanto se 
si ritrovasse solo. Provv 
isto di una certa flessib 
ilita', non e' comunque dis 
posto a "svendersi” pur di 
vivere con la persona cheam 
a. Riconosce l'esistenza de 
llaf all ibil ita ' umana e qui 
ndi anche della propria 

: sa che qualsiasi stor 

ia, anche la piu' bella, po 
trebbe finire.": GO SUB 800 
0 

7222 PRINT AT 2,0; "E' quindi ten 
denzialmente portato 

a non lasciarsi andare, anc 
he se la sua vera natura 
spesso gli prende la mano 
e lo trasforma in un entu 
siasta. L'Impegnato con 

giudizio tende atranquilli 
zzarsi col passare degli 
anni, con un assestamento 
della sua vita in generale 
e delsuo rapporto a due in 
particolare . " 

7240 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : GO TO 7600 


7300 PRINT AT 16, 7; "TU SEI UN CA 
UTO" 

7301 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

7302 PAUSE 0: CLS 

7310 PRINT AT 1,9;"C A U T I" 

7315 PRINT AT 2,4;" (Da 51 a 64 p 
unti ) " 

7320 PRINT AT 4,0; "Molto cordial 
e e simpatico, il cauto ha 

in genere molti amici egod 
e di una ampia popolarità'. 

Anche i rapporti con l'al 
tro sesso sono piuttosto 
numerosi e vari. Apparente 
mente es troverso ,e ' in reat 
a' ipersensibile ed e'molto 
facile ferirlo." 

7321 PRINT "Sia nell'amicizia eh 

e nei rapporti d'amor 

e, quando la situazione 

diventa via via piu' profo 
nda e piu' seria, si fa 
guardingo.": GO SUB 8000 

7323 PRINT AT l,0;"Ritiene di av 

er preso qualche "bastona 
ta" di troppo, nel pas 

sato, e questo ha un po' 

raffreddato i suoi entusi 
asmi e il suo slancio." 

7324 PRINT "Ora e' piu' diffiden 

te e razionale, valu 

ta con attenzionele situazi 
oni prima di calarcisidentr 
o, e state sicuri che non 
si lascera' "trasportare" s 
e l'esame preventivo non 

avra' dato buoni frutti 

II 

7325 PRINT "Tuttavia, se trova u 
n partner sensibile e com 
prensivo, capace di entrare 

in sintonia con lui, il Ca 
uto diventa pieno di 
pr emure . " 

7340 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : GO TO 7600 

7400 PRINT AT 16, 5; "TU SEI UN DI 
S INVOLTO" 

7401 PRINT AT 20,2;"PREMI UN TAS 
TO PER CONTINUARE" 

7402 PAUSE 0: CLS 

7410 PRINT AT 1 , 5;"D I S I N V 0 
L T 0" 

7415 PRINT AT 2,6;" (Da 65 a 78 p 
unti ) " 


SUPERSINC® 2/85 79 


7420 PRINT AT 6 , 0 ; " Abbas tan za se 

iolto come il Fuggitiv 

o, il disinvolto si muo 

ve bene nei rapporti liberi 

ed aperti, non per paura 
di trovarsi incastrato 

ma per libera scelta, 

come dire, ideologica 

II 

7421 PRINT "Sottolinea spesso la 

necessita' d'essere indipe 
ndente; vuole rapporti i 
ntensi ma brevi. Ogni tanto 
ha necessita' di stare da 
solo, senza che qualcuno lo 
disturbi.": GO SUB 800 

0 

7423 PRINT AT l,0;"Puo' aver avu 

to anche dei rapporti 

prolungati, ma spesso li 
ha interrotti, dice, perche 
' la liberta' non ha prezzo 
. Anchese non e' da esclude 
re che questo suo atte 

ggiamento possa derivare p 
roprio da una delus 

ione non digerita, ora il 
Disinvolto preferisce viver 
e alla giornata, ma senz 

a eccessiva tension 

e." 

7424 PRINT "Unica sua seria preo 

ccupazione, la vecchiaia: 1 
'idea della pensione, 

delle serate invernalida so 
lo a casa. E, per non 
pensarci, telefona a qualch 
e vecchia conoscenza." 

7440 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : GO TO 7600 

7500 PRINT AT 16, 5; "TU SEI UN FU 
GGITIVO" 

7501 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE" 

7502 PAUSE 0: CLS 

7510 PRINT AT 1 , 5; "F U G G I T I 
VI" 

7515 PRINT AT 2,5;" (oltre i 79 p 
unti ) " 

7520 PRINT AT 6,0; "La persona fu 
ggitiva tende a vivere m 
olto alla giornata e a rif 
iutare i legami fissi e 
prolungati; desidera anzi 
avere molte avventure e in 
genere le ha davvero.? 


7521 PRINT "E', insomma, sempre 
in fuga, perche' - pur r 
isultando spesso affascinan 
te per chi non lo conos 

ce bene - in realta' ha un 
sacro terrore d'essere limi 
tato , soffocato , incastrato 
dal partner.": 

GO SUB 8000 

7523 PRINT AT 2,0; "Sfugge come 1 
a peste ogni tipo di respo 
nsabilita', e pur di nonass 
umersele, se messo alle 

strette può' diventare mo 
Ito duro e cinico. In un 
a vita cosi 'priva di rappor 
ti affettivi stabili, p 

ero' per il Fuggitivo e' in 
dispensabile un punto di 
riferimento costante:" 

7524 PRINT "Qualche ex amore dis 

posto a consolarlo nei 

momenti di solitudine 

, qualche amicizia piato 
nica ma molto intensa 
(soprattutto se il nostro e 
roe e' un uomo) , oppure 

1' intramontabile 

mamma . " 

7540 PRINT AT 20, 2; "PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : 

7600 INPUT AT 4,0; "VUOI SAPERE A 
LTRE RISPOSTE? " ; K$ 

7610 IF K$ = "S " OR K$ = "s" THEN 

INPUT AT 11,0; "DI QUALE PU 
NTEGGIO (indica solo il nu 
mero)? ";K : CLS : GO TO 63 
1 0 

7625 IF K$ <> "S " OR K$<>"s" 

THEN GO TO 7800 

7800 CLS : INPUT AT 8, 4; "VUOI RI 
FARE IL TEST? " ; J$ 

7810 IF J$="S" OR J$="s" THEN 
GO TO 100 

7820 IF J$<>"S" OR J$<>"s" 

THEN PRINT AT 12,4; "SPERO 
DI ESSERTI STATO UTILE 
PER CONOSCERTI MEGLIO!!!" 
: STOP 

8000 PRINT AT 21,2;"PREMI UN TAS 
TO PER CONTINUARE": PAUSE 0 
: CLS : RETURN 

8100: PAPER 6: BORDER 6: INK 1: 
RETURN 

8200: PAPER 7: BORDER 7: INK 0: 
RETURN 
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Cambio video games e Utilities per 
Spectrum 16/48 Kbyte. Richiedere lista 
programmi. Stefano Roccella • Via Fiu- 
me, 64 57100 Livorno Tel. 

0586/38593 

Vendo ZX81 più cavetti, alimentatore e 
manuali italiano e inglese, poco usato e 
perfettamente funzionante a I. 100.000 
trattabili. Giorgio Sgherzi - Via F. Cri 
spi, 37 63039 S. Benedetto del Tronto 
(AF) Tel. 4833 

Vendo ZX Spectrum 48 Kbyte più in 
terfacce Centronics e RS232, interfac 
eia joystick programmabile Teknolek, 
Seikosha GP 100A, 40 cassette softwa 
re a L. 950.000. Eventualmente solo 
Seikosha GP 100A a L. 400.000. Bruno 
Sforzini Via Giotto, 14 48015 Cervia 
(RA) - Tel. 0d44/992158 

Cambio 200 programmi per Spectrum 
16/48 Kbyte. Sinclairisti che volete am- 
pliare la vostra nastroteca, attendo la 
vostra lista. Massima serietà, rispondo 
a tutti. Gianfranco Cordani Via Ga 
rian, 57 - 20146 Milano 

Vendo, per passaggio a sistema supe 
riore, programmi per Spectrum 16/48 
Kbyte disponibili su cassette C90 (mini- 
mo 25, massimo 47 programmi) al prez 
zo di L. 12.000 ciascuna, pagamento 
contrassegno, spedizione compresa. 
Per avere l’elenco dei programmi spe 
dire L. 500 in francobolli, nome, cogno- 
me ed indirizzo a: Giuseppe Castelli 
Via Tolmino, 24 10141 Torino 

Cambio, vendo programmi per ZX 
Spectrum: ne possiedo circa 100 tra 
utility e video giochi (16/48 Kbyte). Vit- 
torio Ricco - Via Cellini, 6 84090 Belve 
dere Battipaglia (SA) 

Vendo per ZX Spectrum giochi, utility, 
word processing. Per ricevere la lista 
dei programmi disponibili scrivere a: 
Francesco Calvelli Via Paisiello, 8 
50018 Scandicci (FI) - Tel. 753544 

Per problemi economici vendo perso 
nal computer Laser 110, espansione 16 
Kbyte, registratore originale Laser, ca- 
vetti e trasformatori, manuale e casset 
ta dimostrativa. Tutto a sole L. 280.000 
(anche trattabili). In confezione origi- 
nale. Ilario Naso Via Marconi, 9 
89041 Caulonia (RC) Tel. 0964/81424 

Cedo 50 programmi del valore com- 
merciale di L. 200.000 in cambio di in- 
terfaccia joystick programmabile o per 
20 programmi cerco un box sonoro 
amplificato. Per informazioni scrivere o 
telefonare a: Fabio Ferrante Via A. 
Vespucci, 2 03043 Cassino (FR) Tel. 
0776/21398 

Cambio programmi per ZX Spectrum 
48 Kbyte, circa 60 titoli: Psytron, Apo- 
calisse. Gorf, Manie Miner, Kong, Ti- 
me Gate e tanti altri. Scrivere inviando 
lista. Fabio Ferrante Via A. Vespucci, 
2 03043 Cassino (FR) Tel. 21398 




Vendo ZX Spectrum 48 Kbyte in per 
fette condizioni con cavi e alimentato 
re, registratore e più di 100 bellissimi 
programmi, 2 manuali a L. 700.000. Va- 
lore reale dei soli programmi L. 
2.000.000. Carlo Corti Via Gabetti, 11 
20147 Milano Tel. 404534 

Vendo Spectrum 80 Kbyte, tastiera 
Newnewl, superface, 4 manuali in italia- 
no, interfaccia programmabile, mate- 
riale vario, joystick, oltre 250 program 
mi, serie completa di Run/Run Load 
più Program, tutto con garanzia e ma- 
nuali. Antonio Rescaldani Via Roma, 
50 20024 Garbagnate (MI) Tel. 

9958867 

Vendo E.I. Enciclopedia di Elettronica 
ed Informatica, al miglior offerente, 
preferibilmente zona Pescara. Achille 
Serpente Via Tasso, 29 65100 Pesca 
ra Tel. 32475 

Cambio software per ZX Spectrum. 
Elenco con oltre 900 titoli: giochi, utili- 
tà, avventure e copiatori. Tutte le ulti- 
me novità inglesi e americane. Giorgio 
Santucci Via M. Resistenza, 7 - 60100 
Ancona Tel. 071/84375 

Vendo per ZX Spectrum interfaccia 
joystick programmabile, prezzo tratta- 
bile ed eventuale vendita anche di joy- 
stick. Per informazioni telefonare a: 
Andrea Tron Via Raviolo, 8 10064 
Pinerolo (TO) - Tel. 73462 

Cambio più di 400 programmi in LM 
con hardware di ogni tipo per Spec 
trum (specialmente joystick e interfac- 
cia Kempston). Telefonare dalle 14 alle 
15 per accordarsi. Vendo a prezzi ridi- 
coli. Rosario di Modica - Via Castelfi- 
dardo, 37 - 97019 Vittoria (RG) Tel. 
0932/983512 

Vendo ZX Spectrum 48 Kbyte, joystick 
più interfaccia programmabile, regi- 
stratore, 4 libri sullo Spectrum, riviste 
varie, 170 programmi (in aumento), il 
tutto in blocco a L. 500.000. Andrea 
Riva Viale 4 Novembre, 37 - 31100 
Treviso - Tel. 542295 

Siamo due ragazzi e vendiamo al mise- 
ro prezzo di L. 2.000 programmi di 
qualsiasi genere. Risposta assicurata: 
Flavio Chianese Via Virgilio, 17 - 
34170 Gorizia Tel. 0481/33183 

Vendo programmi eccezionali per ZX 
Spectrum 16/48 Kbyte. Possiedo pro- 
grammi come: Flight Simulation, Ant 
Attack, Road Racer, Alchemist e molti 
programmi gestionali. Richiedere listi- 
no gratuito. Prezzo L. 5.000 cadauno. 
Massima serietà. Gianluca Filacchione 
- Via Interno Marina, 60 88074 Croto- 
ne (CZ) Tel. 0962/20534 


Vendo stampante Alphacom 32 più in 
terfaccia programmabile, joystick, 10 
giochi a L. 250.000 o cambio il tutto con 
ZX microdrive, interfaccia, stampante 
e joystick in ottimo stato. Usati pochis 
simo. Piero Usandrelli Largo Castel 
Bolognese, 10 00127 Vitinia (RM) 

Tel. 6071850 


Cambio programmi per ZX Spectrum 
16/48 Kbyte. Possiedo più di 150 pro- 
grammi; chiedere la lista e/o mandare 
la propria o telefonare. Guido Trombi- 
ni Via Capergnanica, 8/F 26013 Cre 
ma Tel. 0373/59174 

Vendo Sinclair Spectrum con tastiera 
professionale e presa monitor, 500 prò 
grammi, 50 manuali d’istruzioni, 5 libri 
sullo Spectrum, interfaccia Kempston 
e tantissimo altro materiale su fotoco- 
pie. Telefonare o scrivere Espresso per 
accordi. Nazareno Candiano Viale 
Italia, 63/c - 98100 Messina - Tel. 
090/717797 

Hardware, software, testi scambio con 
più di 500 programmi in LM per Spec 
trum. Vendo a prezzi molto bassi. Ri 
chiedere la lista gratuita. Rosario Di 
Modica Via Castelfidardo, 37 97019 
Vittoria (RG) Tel. 0932/983512 

Vendo VCS Atari 2600 con 9 cartucce: 
Decathlon, Megamania, Keystone Ra 
pers, Phoenix, Ms Pac Man, Kangaroo, 
Vanguard, Missile Command, Space 
War. Prezzo da concordare. Marco 
Maccaferri Via Ferrara, 9 40139 Bo 
logna Tel. 051/460424 

Vendo ZX81 in ottime condizioni com 
pleto di: registratore, cavetti registrato 
re, espansione 16 Kbyte, 3 manuali e 2 
libri per luso, 20 giochi, il tutto a L. 
220.000 trattabili. Alberto Crisconio 
Via Morgen, 41 80100 Napoli Tel. 

379928 


Cambio, vendo per ZX Spectrum circa 
250 programmi a prezzi ridottissimi. 
Mandatemi la vostra lista, risponderò 
con la mia. Garantisco la massima se 
rietà. Renato Saporetti Via Canalaz 
zo, 71 48100 Ravenna Tel. 

0544/461766 

Vendo, cambio software per ZX Spec 
trum 16 Kbyte a L. 2.000, 48 Kbyte L. 
4.000. Cassetta dieci giochi: 16 Kbyte 
L. 15.000, 48 Kbyte L. 30.000. Oltre 170 
titoli tra i quali: Sabre Wulf, Decathlon, 
Molar Maul, ecc. Massima serietà. 
Francesco Gramegna Via S. Pedrino, 
18 21100 Varese - Tel. 0332/236687 

Vendo Sinclair ZX81 1 Kbyte, imballag 
gio originale, manuale in italiano, libri 
“66 programmi per lo ZX81” e “Gio 
chiamo con lo ZX81”, 2 cassette giochi 
(1 Kbyte). Luca Rapini Via Don Bo 
sco, 19 60127 Ancona Tel. 

071/896225 


Cambio software per ZX Spectrum. Ri 
sposta superassicurata. Inviate la vo- 
stra lista e richiedete gratuitamente la 
mia. Sergio Remondino Via De Ga- 
speri, 3 10015 Ivrea (TO) 


Cerco stampante per Spectrum. In 
cambio offro impianto metano compie 
to per auto (esluso bombole). Telefo- 
nare ore pasti. Renzo Baldoni Via De 
Gasperi, 13 61016 Pennabilli (PS) 

Tel. 0541/918563 

Vendo corso completo, corredato da 
computer ZX81 per diventare pro- 
grammatore EDP dell’Istituto Superio- 
re di Informatica di Roma al 50Ì% del 
costo. Renzo Baldoni Via De Gasperi, 
13 61016 Pennabilli (PS) Tel. 

0541/918563 

Cerco interfaccia per joystick, do’ in 
cambio molti programmi per Spectrum 
16/48 Kbyte. Vendo inoltre numeroso 
software (in LM oppure BASIC). Seri 
vere allegando L. 450 per spese postali 
per ricevere la magica lista. Prezzi bas 
sissimi. Giampaolo Ricci - Via Fratelli 
Cervi, 17 48012 Bagnacavallo (RA) 

Vendo per ZX81 16 Kbyte programma 
su cassetta pronostico calcio più siste- 
ma 64 colonne con verifica vincite e 
istruzioni. Arcangelo Rizzuti Via S. 
Leonardo, 21 43100 Parma 

Vendo interfaccia vocale Currah Micro 
Speech; molti giochi sono già previsti 
per il suo uso. Telefonatemi o scrivete- 
mi. Sergio Cerotto Via Cimitile, 24 
80135 Napoli Tel. 081/344069 

Vendo Videoplay Atari con 10 casset 
te, 4 paddle e 2 joysticks a L. 370.000. 
Telefonare 14 17 o 21 22. Tratto solo 
con Roma. Luciano Minghetti - Via A. 
Magarotto, 10 00166 Roma Tel. 

06/6244319 

Svendo ZX Spectrum nuovissimo, 200 
giochi (Atic Atac, Manie Miner, Fullth- 
rottle, Simulazione, ecc.), libro prò- 
grammazione dello Spectrum, cavi, li- 
bretto di istruzioni. Tutto alla modica 
cifra di L. 450.000. Preferisco trattare in 
zona. Giuseppe Santarcangelo Via 
Recanati, 99 80046 San Giorgio a Cre- 
mano (NA) Tel. 480360 

Vendo ZX Spectrum 48 Kbyte acqui- 
stato ad Agosto, numerosi videogiochi 
(16/48 Kbyte), causa passaggio a siste- 
ma superiore. Tra i videogiochi segna- 
lo: Ant Attack, Manie Miner, 3D Tank. 
Il tutto a L. 400.000. Non perdete que- 
sta magnifica occasione. Cristian Bar 
gapiccola Via Muzio Pansa, 1 - 66013 
Chieti Scalo Tel. 0871/59777 

Cambio per ZX Spectrum più di 50 
programmi, otto dei quali per ZX81. 
Fabrizio Minnielli - Via Arcidiacono 
Giovanni, 58 - 70100 Bari Tel. 
080/514295 
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Knowledge man 
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Personal-O/PC/Bit/Rersonal Software 
sono pubblicazbni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 


BIT 

In questo numero: 

Speciale MSX 

In prova: 

Sinclair QL 
CP 80 II 
Yashica YC-64 
Philips VG-8000 
Canon V-20 
Sony Hit-Bit 75P 


PERSONAL SOFTWARE 

In questo numero: 

Language Tutor per Spectrum 
Sprite Editor per C64 
One Touch per VIC 20 
Apple: pagine video e dintorni 


